bestlong 怕失憶論壇

標題: Delphi 用程式碼進行印表機管理 [打印本頁]

---

作者: bestlong    時間: 2012-10-1 14:53     標題: Delphi 用程式碼進行印表機管理

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;

複製代碼

---

歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/)

Powered by Discuz! X1.5