请教一个打印的问题

Question

DELPHI里的能不能通过代码来设置打印机的横向和纵向打印以及打印纸的类别，例如A3还是A4

Answer 1

用Tprint类可以实现，具体方法，
自己申明一个print实例来试。
详细用法参考“开发人员指南”第10章写的很清楚。

Answer 2

delphi葵花宝典里也有实用的例子

Answer 3

var
  DevMode : TDeviceMode;
......
  // 设置纸张为A4
  DevMode.dmFields := DevMode.dmFields or DM_PAPERSIZE;
  DevMode.dmPaperSize := DMPAPER_A4;
  // 设置为横向
  Printer.Orientation := poLandscape
  // 设置为纵向
  Printer.Orientation := poPortrait;