Como Mandar Imprimir E Aparecer A Tela De Número De Copias E Opção Para Selecionar A Impressora

[Gabriel Nilegor]

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;

Editado 28 Maio, 2015 por gabriel rogelin

[Juliomar Marchetti]

Bom dia

tentou chamar o comando Printer.Printers[Printer.PrinterIndex]; 

em uma linha separada?

acho que o problema está ai

tente executar como administrador seu executavel!

[Gabriel Nilegor]

Olá Juliomar, fiz o que me passou, porem não deu certo. 

 

..E2003 Undeclared identifier: 'Printer'

..expected but identifier 'PrinterIndex' found]

 

Estou usando o delphi xe6, sera que muda algo do 7 em relação aos componentes de impressão ? Pois o componente PrintDialog nem tem essa propriedade que consta na linha do erro, estou confuso. Teria outra forma de fazer essa impressão com o componente PrintDialog ?

[Juliomar Marchetti]

Opa então temos uma resposta o problema está no código que chamou !

não é no ACBr!

bom deve de ter declaro a uses printer no seu form para resolver

[Gabriel Nilegor]

Era isso mesmo, muito obrigado, tudo ok agora.Abraço.