打印高手请进来看一下,有关Printer.Canvas.TextOut打印出错,不知道错在哪里?分不够我可以加!

Question

我有两台打印机1和2,默认打印机为2;
  我现在打印要用1号打印机,要在程序中设置,  以下操作不知错在哪里?  Printer.GetPrinter (Device, Driver, Port, hDeviceMode); //得到打印机列表
  Printer.PrinterIndex := Printer.Printers.IndexOf(1号打印名称); //
  if not WinSpool.OpenPrinter(@Device, hPrinter, nil) then exit;
  GetPrinter(hPrinter, 2, nil,0,@pcbNeed);  
  GetMem(Buffer, pcbNeed);
  if GetPrinter(hPrinter, 2, Buffer, pcbNeed, @pcbNeed) then
  begin
    if TPrinterInfo2A(Buffer^).pDriverName <> nil then
      Edit1.text := TPrinterInfo2A(Buffer^).pDriverName;1号打印的类型   
  end;  Printer.BeginDoc;
  Printer.Canvas.TextOut(1002,250,'xccb');//这里出错了
  Printer.EndDoc;
end;请高手帮帮忙,以上语句哪里有问题,或者还要加什么语句?

Answer 1

试过你的代码,代码应该是好的,是否是打印机的问题?