关于打印的问题

Question

如何通过程序设置打印参数，例如：纸张大小。不是通过PrinterSetupDialog、PrintDialog   注：请附代码

Answer 1

uses Printers;
------
  if Printer.Printers.Count < 1 then
  begin
     Application.MessageBox('未安装打印机，请先安装打印机！','提示',MB_ICONWARNING + MB_OK);
     Exit;
  end;
  Printer.Copies := 5; //打印份数
  Printer.Orientation :=  poPortrait; //纸张方向
  Printer.PageHeight := 200;//纸张高度
  Printer.PageWidth := 100; //纸张宽度
  Printer.BeginDoc;    //准备打印
  Printer.EndDoc;      //开始打印

Answer 2

同意  soundbug(兼职乞丐)