Delphi 用程式碼進行印表機管理

bestlong

Delphi 可以透過 function Printer 來取得 TPrinter 的全域實例(Global Instance)來進行印表機的管理。

1. //使用 Printer 函數要先引用 Printers 單元
   
2. uses Printers;
   
3. 
   
4. procedure TForm1.FormCreate(Sender: TObject);
   
5. begin
   
6.   //清空列表，加入印表機列表，列表切換到目前選定印表機
   
7.   //cbPrinters: TComboBox;
   
8.   cbPrinters.Clear;
   
9.   cbPrinters.Items.Assign(Printer.Printers);
   
10.   cbPrinters.ItemIndex := Printer.PrinterIndex;
    
11. end;

複製代碼