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

发布时间：2020-12-15 09:43:41 所属栏目：大数据来源：网络整理

导读：实际上我正在一个需要在特定打印机上打印测试页的项目中工作.测试页必须与选项打印机属性中的 Windows打印相同 – 打印测试页. 我怎么能在delphi中做到这一点？解决方法此代码将打印默认打印机的测试页： uses ShellAPI,printers;{$R *.dfm}procedure TFor

实际上我正在一个需要在特定打印机上打印测试页的项目中工作.测试页必须与选项打印机属性中的 Windows打印相同 – >打印测试页.

我怎么能在delphi中做到这一点？

解决方法

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

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,Port,hDevmode);
  ShInvokePrinterCommand(handle,PRINTACTION_TESTPAGE,Device,nil,true );
end;

结果：

请享用：)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!