quickreport，如何设置打印机，ide状态，请详细指教

Question

另外可以用TDeviceMode结构对打印机进行设置
type PDeviceMode=^TDeviceMode;
var
  DevMode:PDeviceMode
with DevMode^ do//设置纸张大小 ..其他可以参考帮助
begin
  dmField:=dmFields or DM_PAPERSIZE;
  dmPaperSize:=DMPADER_LETTER;
end;

Answer 1

我的代码出现的问题是：
默认打印机如果不是 LQ1600K ,程序运行就报错！

Answer 2

可以在运行时将默认打印机设为LQ1600K
uses
  Printers;
在Printer.Printers//有所有打印机信息TStrings找到要设置的打印机序号
将Printer.PrinterIndex设为相应的序号