Pesquisar na Comunidade

Boa tarde senhores! mas uma vez venho pedir ajuda de vocês, pois não consegui fazer imprimir corretamente pelo escpos nem pelo danfefr1.. Os dois saem desconfigurados. já agradeço a atenção de cada um. Lembrando que uso o trunk2 comandos do escpos : frmPedido.LerConfiguracao; if not FileExists( ArquivoXML ) then raise Exception.Create('Arquivo não encontrado!'+ArquivoXML); if frmPedido.lImpressoraBobina then begin if PrintDialog.Execute then begin Try ConfigurarComponente; ACBrNFe1.DANFE := ACBrNFeDANFeESCPOS; ACBrNFeDANFeESCPOS.MostrarPreview := True; ACBrNFeDANFeESCPOS.NumCopias := PrintDialog.Copies; ACBrNFeDANFeESCPOS.Impressora := Printer.Printers[Printer.PrinterIndex]; if lDanfeResumido then begin // ACBrNFeDANFeESCPOS.ImprimirDANFEResumido(Nil) ACBrNFe1.DANFE.ImprimirItens := false; ACBrNFe1.NotasFiscais[0].Imprimir; end else ACBrNFe1.NotasFiscais[0].Imprimir; // ACBrNFeDANFeESCPOS.ImprimirDANFE(nil); // if chkAbrirGaveta.Checked then // ACBrNFeDANFeESCPOS.AbrirGaveta; finally // ACBrNFeDANFeESCPOS.Device.Desativar; end; end; ///////////////////////////////////////////////////////////////////////////////////////// ACBrNFeDANFEFR1 if DM_NFCe.cColunas = '40' then begin ACBrNFeDANFEFR1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFeNFCe.fr3'; ACBrNFeDANFEFR1.FastFileEvento := ExtractFileDir(application.ExeName) + '\Report\EVENTOS.fr3'; ACBrNFeDANFEFR1.TipoDANFE := tiNFCe; end else begin ACBrNFeDANFEFR1.FastFile := ExtractFileDir(application.ExeName) + '\Report\DANFeNFCeA4.fr3'; ACBrNFeDANFEFR1.FastFileEvento := ExtractFileDir(application.ExeName) + '\Report\EVENTOS.fr3'; ACBrNFeDANFEFR1.TipoDANFE := tiNFCeA4; end; // ACBrNFe1.DANFE := ACBrNFeDANFEFR1; // ACBrNFe1.DANFE.imprimirItens := False; ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(ArquivoXML); // ACBrNFe1.DANFE.MostrarPreview := True; // ACBrNFe1.DANFE.NumCopias := PrintDialog.Copies; // ACBrNFe1.DANFE.Impressora := Printer.Printers[Printer.PrinterIndex]; ACBrNFeDANFEFR1.MostrarPreview := True; ACBrNFeDANFEFR1.NumCopias := PrintDialog.Copies; ACBrNFeDANFEFR1.Impressora := Printer.Printers[Printer.PrinterIndex]; if lDanfeResumido then begin { ACBrNFeDANFEQR1.ImprimeItens := False; ACBrNFeDANFEQR1.ImprimirDANFE(nil); } ACBrNFeDANFEFR1.ImprimirItens := False; ACBrNFeDANFEFR1.ImprimirDANFEResumido(nil); end else begin { ACBrNFeDANFEQR1.ImprimeItens := True; ACBrNFeDANFEQR1.ImprimirDANFE(nil); } ACBrNFeDANFEFR1.ImprimirItens := True; ACBrNFeDANFEFR1.ImprimirDANFE(nil); end; end; finally end; obrigado.

Ao clicar em imprimir não quero visualizar o DANFE, gostaria que mostra-se a tela de imprimir, onde insiro o numero de cópias e o campo para selecionar a impressora. O código que consegui foi este abaixo, mas a linha ''ACBrNFeDANFEFR1.Impressora'' da erro. Se alguem puder me ajudar, agradeço. if PrintDialog1.Execute then begin ACBrNFeDANFEFR1.MostrarPreview := False; ACBrNFeDANFEFR1.NumCopias := PrintDialog1.Copies; ACBrNFeDANFEFR1.Impressora := Printer.Printers[Printer.PrinterIndex]; // LINHA DO ERRO ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(ClientDataSet_estoque.FieldByName('TESTEXML2015').AsString); ACBrNFe1.ImprimirEvento; end;