828
社区成员
发帖
与我相关
我的任务
分享
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;