delphi - 如何使用delphi发送测试页到打印机打印？

Question

实际上，我正在从事一个需要将测试页打印到特定打印机的项目。测试页必须与选项打印机属性 -> 打印测试页中打印的 Windows 相同。

我如何在delphi中做到这一点？

Answer 1

此代码将打印默认打印机的测试页:

uses ShellAPI, printers;
{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
  Device, Driver, Port: Array [0..255] of Char;
  hDevMode: THandle;
begin
  Printer.GetPrinter(Device, Driver, Port, hDevmode);
  ShInvokePrinterCommand(handle, PRINTACTION_TESTPAGE, Device, nil, true );
end;

结果:

享受吧:)