نکات برنامه نویسی در دلفی

[gholami146]

باز كردن پنجره پروپرتي پرينتر

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;