Impressão com canvas !!!

Delphi

15/02/2005

Tenho a seguinte rotina no meu sistema:

Problema: gostaria de inverter a impressão (sair de ponta cabeça - 180º)

Tem como fazer?

Printer.Orientation := poPortrait;
Printer.BeginDoc;
Printer.Canvas.Pen.Width := 1;
Printer.Canvas.Pen.Color := clBlack;
Printer.Canvas.Brush.Color := clBlack;
Printer.Canvas.Brush.Style := bsClear;
Printer.Canvas.Font.Name := ´Arial´;
Printer.Canvas.Font.Style := [];
Printer.Canvas.Font.Color := clBlack;
Printer.Canvas.Font.Size := 12;

Printer.Canvas.TextOut(10,05,Produtox);
Printer.Canvas.TextOut(15,05,´(´ + cientificox +´)´);
Printer.Canvas.TextOut(20,05,´Lote: ´+n_lote);
Printer.Canvas.TextOut(20,50,´Fabricação: ´+fab_lote);
Printer.Canvas.TextOut(30,05,´Validade..: ´+vencto_lote );


Mfilho

Mfilho

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

15/02/2005

tente isso no fim dos comandos de desenho:

Printer.Canvas.CopyRect(Rect(0, 0, Largura, Altura), Printer.Canvas, Rect(Largura, Altura, 0, 0));


É um palpite, não faço a mínima idéia se funciona :)


GOSTEI 0
POSTAR