Erro Operation Not Supported On Selected Printer.

Valteir Costa de Sousa · 11 Março, 2014

Bom dia! Amigos;

Estou desenvolvendo uma aplicação tipo web services (ISAPI.DLL), ela conecta com o Oracle via dbExpress, usando delphi 7.

Ela vai gerar um arquivo pdf.

No momento que dou o comando imprimir ele dá o erro "Operation not supported on selected printer.".

Nesta linha frACBrBoletoFortes := TACBrBoletoFCFortesFr.Create(Self); ocorre o danandinho do erro.

Abaixo a rotina onde ocorre erro sintetizada.

Uma coisa me chama atenção, qdo usando a mesma unit em uma aplicação desktop tudo funciona mprimie normalmente.

Alguem sabe como posso solucionar o problema

procedure TACBrBoletoFCFortes.Imprimir;

var
frACBrBoletoFortes : TACBRBoletoFCFortesFr;
RLFiltro : TRLCustomSaveFilter;
RLLayout: TRLReport;
begin
inherited Imprimir;    // Executa verificações padroes

{$IFDEF FPC}
   LoadPortugueseStrings;
{$ELSE}
   // Para que serve esse método ?? //
   //SetVersion( CommercialVersion, ReleaseVersion, CommentVersion );
{$ENDIF}
>>>>>>>>> O Erro ocorre aqui, na criação do TRLReport ele detecta que não existe uma impressoa valida e gera o erro
frACBrBoletoFortes := TACBrBoletoFCFortesFr.Create(Self);
try
     ....{conteudo ocultados}
finally
     frACBrBoletoFortes.Free ;
end;
end;

Editado 11 Março, 2014 por Valteir Costa de Sousa

Valteir Costa de Sousa · 12 Março, 2014

Bom dia! Amigo.

Para solucionar o problema somente comentei a linha abaixo, que inclusive está colocada sob censura pelo o desenvolvedor;

frACBrBoletoFortes := TACBrBoletoFCFortesFr.Create(Self);
try

....{conteudo ocultados}

       RLPrinter.Copies     := NumCopias ; // Aparentemente isso está errado...    >> Linha que causa a falha.
     ....{conteudo ocultados}
finally
     frACBrBoletoFortes.Free ;
end;

/