怎样把打印纸张默认值设置为A4横向

Question

我要打印image1中的内容，但怎样把纸张默认值设置为A4横向    if PrintDialog1.Execute then
    begin
        Printer.BeginDoc;
        Printer.Canvas.StretchDraw(image1.Canvas.ClipRect, Image1.Picture.Bitmap);
        Printer.EndDoc;
    end;这是我的打印程序，但默认纸张是A4竖向的。请大家帮帮忙，谢谢了。

Answer 1

Printer.Orientation := poPortrait;  Printer.Orientation := poLandscape;

Answer 2

poPortrait 纵向  poLandscape横向

Answer 3

谢谢，还有个问题，如果不用 PrintDialog1.Execute，打印出来的图像很小，几乎看不到了，纸张大小（A4横），图像大小和位置该怎样设置呢？
  
    Printer.Orientation := poLandscape;
        Printer.BeginDoc;
        Printer.Canvas.StretchDraw(image1.Canvas.ClipRect, Image1.Picture.Bitmap);
        Printer.EndDoc;