Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

_jean

[Resolvido] QuickReport - Iniciando

Recommended Posts

Bom dia pessoal!

Sou iniciante em Delphi e tenho que criar um sistema bem simples, que deve imprimir um recibo;

Instalei o QuickReport porém não faço idéia de como usá-lo;

Na verdade, consegui fazer alguns labels e etc, porém não consigo imprimir o relatório;

Alguém poderia me ajudar?

 

Abaixo está uma imagem do tipo de recibo que estou criando:

 

Imagem Postada

 

Abaixo está o código que estou usando para imprimir o Report:

CODE
procedure TForm1.Button1Click(Sender: TObject);

begin

form2.QuickRep1.Prepare;

form2.QuickRep1.PrinterSetup;

form2.QuickRep1.Print

end;

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

você está usando apenas uma tela onde informa os dados do recibo ou trabalha com um cadastro onde os dados são gravados em um banco de dados e qual banco seria se for banco de dados, trabalho com QuickReport também não sei muito, mas se explicar melhor seu caso tento ajudar! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post


Link para o post
Compartilhar em outros sites

estou usando uma tela aonde informo os dados direto...

é bem simples... como disse, estou iniciando;

 

porém quando vou fazer a impressão aparece uma janela dizendo que 'houve um erro'.

 

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

O erro que obtenho é o seguinte:

 

"PRINTING ERROR"

" An error occured during this operation."

 

Abaixo segue o código que estou usando:

 

CODE
implementation // Do form que existe o botão com a função de imprimir o relatório.

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

begin

form2.QuickRep1.Prepare;

form2.QuickRep1.PrinterSetup;

form2.QuickRep1.Print;

end;

 

 

end.

 

 

CODE
implementation // Form que possui o relatório.

 

{$R *.dfm}

 

procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

form2.QuickRep1.Prepare;

form2.QuickRep1.PrinterSetup;

end;

 

end.

 

Obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse código acima está sem as atribuições...

 

Mas Obrigado ae Equipe iMasters, o problema era na rede, não no quickreport.

 

Abração!

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.