Abrir diálogo para selecionar a impressora ou sua configuração (Fast Report)

[rodrigod6]

Boa Tarde Pessoal,

Utilizamos a versão 4 do FR(FastReport), e no FR não tem a opção para selecionar a impressora quando mostramos o preview na tela, ou mesmo antes de imprimir.

Isso é uma limitação do FR?

Olhando a função:

TACBrNFeDANFEFR.PrepareReport

Vi que somente busca a impressora setada.

FdmDanfe.frxReport.PrintOptions.Printer := FImpressora;

Mas na visualização não tem opção de configurar a bandeja, ou trocar a impressora.

Fiz um teste utilizando a printers do windows:

function TACBrNFeDANFEFR.PrepareReport(NFE: TNFe): Boolean;
var
 printDialog1    : TPrintDialog;

//...

  printDialog1 := TPrintDialog.Create(Self);
  if PrintDialog1.Execute then
  begin
    FdmDanfe.frxReport.PrintOptions.Printer := Printer.Printers[Printer.PrinterIndex];
    FdmDanfe.frxReport.PrintOptions.Copies := Printer.Copies;
    FdmDanfe.frxReport.PrintOptions.ShowDialog := False;
  end;

Ele abre a caixa de diálogo posso escolher a impressora, etc.

Ai fiquei na dúvida se não colocaram a uses printers por causa de uma compatibilidade com o Lazarus, ou algo assim?

E se pretendem implementar algo assim?

Abraços,

[JoaoPauloRicardo]

tens de colocar a opçao showdialog = true no objecto da DANFE, isso vai disparar a tela q procuras

[rodrigod6]

Deu certo,

Eu esta tentando com as propriedades MostrarStatus e MostrarPreview,

Utilizando:

ACBrNFeDANFEFR1.ShowDialog

ACBrNFeDANFEFR1.ShowDialog := True;

Deu certo !!!!

Obrigado

[Douglas Cesar]

Boa tarde!

Para o Fast e o Fortes, como que eu utilizo esse comando do ShowDialog? Já procurei e não os encontrei...

Grato.