Fórum Visualizar impressão #260384

Existe alguma forma de Visualizar os relatórios gerados com o comando
PRINTER em tela ?

Ex :
Tentei visualizar o Printer no Objéto Form só que qndo estoura o tamanho do formulario e não mostra o resto da Impressão .


procedure TForm1.FRMClick(Sender: TObject);
var
I : Integer ;
Linha: integer;
Tamanho: integer;
Coluna: integer;
begin
I := 0 ;

Form1.Canvas.Pen.Width := 5;
Form1.Canvas.Font.Name := ´Courier´;
Form1.Canvas.Font.Size := 10;
Linha := 20;
Coluna := 20;
Tamanho := Form1.Canvas.TextWidth(´a´);
for I := 1 to 80 do
begin
if Linha = 20 then
begin
Coluna := 20;
Form1.Canvas.TextOut(0, Linha, ´Relacao de Clientes´);
Linha := Linha - Form1.Canvas.Font.Height + 5;
Form1.Canvas.TextOut(Coluna, Linha, ´Cod´);
Coluna := Coluna + (Tamanho * 5 );
Form1.Canvas.TextOut(Coluna, Linha, ´Nome´);
Coluna := Coluna + (Tamanho * 30);
Form1.Canvas.TextOut(Coluna, Linha, ´Endereco´);
Coluna := Coluna + (Tamanho * 30);
Linha := Linha - Form1.Canvas.Font.Height + 5;
end;
Coluna := 20;
Form1.Canvas.TextOut(Coluna, Linha, ´0001´);
Coluna := Coluna + (Tamanho * 5 );
Form1.Canvas.TextOut(Coluna, Linha, ´ADILSON MARCOS PAZZINI ´);
Coluna := Coluna + (Tamanho * 30);
Form1.Canvas.TextOut(Coluna, Linha, ´TESTE TESTE TESTE TESTE´);
Coluna := Coluna + (Tamanho * 30);
Linha := Linha - Form1.Canvas.Font.Height + 5;

if Linha > Form1.Height - 20 then
begin
Linha := 20;
end;
end;
end;

Sem mais ,

Aguardo ....


---------[color=blue:c2885fc16d]
:arrow: Título editado pelo moderador Nildo.
:arrow: Não utilize caixa alta nos títulos.[/color:c2885fc16d]
:idea: [color=red:c2885fc16d]Leia as regras de conduta [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]aqui[/url][/color:c2885fc16d]