GARANTIR DESCONTO

Fórum Impressão com canvas !!! #268567

15/02/2005

0

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

Responder

Posts

15/02/2005

Marcelo Saviski

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 :)


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar