1:
2:

uses Printer;
Printer.Canvas.//					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

 BeginDoc;
    
    try
      ScaleX := (Printer.PageWidth/840);//(GetDeviceCaps(Handle, logPixelsX) / Dpi);
      ScaleY := (Printer.PageHeight/1190);//(GetDeviceCaps(Handle, logPixelsY) / Dpi);

//        bit.width := Round(840 * ScaleX);
//        bit.height := Round(1190 * ScaleY);

/// Logo :
        
         printer.Canvas.StretchDraw(Rect(Round(12 * ScaleX),Round(0 * ScaleY),Round((820+12) * ScaleX),Round(85 * ScaleY)),tmp);
     
Canvas.Pen.Width:=Round((ScaleX+ScaleY)/2);

        printer.canvas.MoveTo(Round(5 * ScaleX),Round(350 * ScaleY));
        printer.canvas.LineTo(Round(835 * ScaleX),Round(350 * ScaleY));


....