Fórum Visualizar impressao com TPrinter #220436
16/03/2004
0
Criei um relatório utilizando a classe TPrinter, e agora gostaria de exibir uma visualização da impressão antes de executar o Printer.EndDoc. Alguém tem alguma idéia de como fazer isso?
Zeus_br77
Curtir tópico
+ 0Posts
16/03/2004
Vinicius2k
Impossível... vc já enviou os dados para a impressora... o EndDoc apenas vai finalizar o Job...
O que vc pode fazer é enviar os dados para um TRichEdit, por exemplo, e imprimir o conteúdo do TRichEdit usando o TPrinter...
o método Canvas.TextOut irá dar a saída nas linhas do TRichEdit...
Exemplo :
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
Richedit1.Clear;
Richedit1.Lines.Add(´teste de impressão linha 1´);
Richedit1.Lines.Add(´teste de impressão linha 2´);
Richedit1.Lines.Add(´teste de impressão linha 3´);
Printer.BeginDoc;
For i:= 0 to RichEdit1.Lines.Count do
begin
Printer.Canvas.TextOut(0,0, RichEdit1.Lines[i]);
// sua rotina para mudar de linha aqui...
end;
Printer.EndDoc;
end; mas, se vc usar um TRichEdit é muito mai fácil vc chamar o método Print do próprio TRichEdit...
espero ter ajudado...
Gostei + 0
16/03/2004
Zeus_br77
Valew.
Gostei + 0
16/03/2004
Vinicius2k
Entenda que o TPrinter eh de um nível mais baixo, recuros como estes vc terá que construir vc mesmo...
T+
Gostei + 0
16/03/2004
Sremulador
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)