|
Use OpenPrinter procedure for getting printer handle and PrinterProperties procedure for opening printer properties window.
Don't forget include WinSpool and Printers in uses chapter.
uses WinSpool, Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
var
MyPrinter, MyDriver, MyPort: array[0..100] of Char;
PrinterHandle, DevMode: THandle;
begin
Printer.GetPrinter(MyPrinter, MyDriver, MyPort, DevMode);
OpenPrinter(MyPrinter, PrinterHandle, nil);
PrinterProperties(Form1.Handle, PrinterHandle);
end;
- For more
-
Win32 programmer's reference
- Download source
|