Impressão com canvas !!!
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 );
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
Curtidas 0
Respostas
Marcelo Saviski
15/02/2005
tente isso no fim dos comandos de desenho:
É um palpite, não faço a mínima idéia se funciona :)
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