Jump to content

Embarcadero Conference 2019

22/10 - Visite o Stand do ACBr
Saiba mais

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Sign in to follow this  
Valteir Costa de Sousa

ANSWERED Erro Operation Not Supported On Selected Printer.

Recommended Posts

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;

Edited by Valteir Costa de Sousa

Share this post


Link to post
Share on other sites

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;

 

/

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...