Question

Actually i’m working in a project which need print a test page to a particular printer. the test page must be the same which of prints Windows in the option printer properties -> print test page.

How i can do this in delphi?

Answer 1

This code will print the test page for the default printer:

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;

Result:

Enjoy 🙂