如何由程式自行取得及設定預設印表機(網路) 非常緊急,請各位高手幫忙,謝謝!!!

取得: http://www.q3.nu/trucomania/truco.cgi?311&ing    設定: http://sandbrooksoftware.com/DPSC/Tips/Latium/delphi025.html    --- 歡迎光臨 KTop 研究院 發表人 -

對不起,未詳述問題 , 情形如下 :     此程式會印出領貨單 , 但緊急單將從 A 印表機印出, 一般單從 B 印表機印出, 此 PC(win2000) 安裝2台網路印表機(so win.ini 無印表機設定) ps . 1.   delphi 程式中已可取出已經安裝之所有印表機名稱      2. 可否從 PrinterSetupDialog 中設定 ??  謝謝 !!

1.將系統可用的印表機載入 ListBox1 中:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Assign(Printer.Printers);
  // 對照 ListBox1 上的印表機,
  // 您可用 Printer.PrinterIndex 來指定哪一台印表機
end;

2.呼叫 PrintDialog1

begin
  if PrintDialog1.Execute then
    // 呼叫出 PrintDialog1 後, 更改對話方塊內的印表機, 
    // 按下確定後做您要做的事
end;

--- 歡迎光臨 KTop 研究院

謝謝 hagar , 我已利用方法一,測試成功, 但方法二,我仍想知到結果 , 因為此程式是在無人操作下執行, 所以無法手動設定, printDialog1中有無任何函數可設定,謝謝

弟看了一下,  TPrintDialog 或 TPrinterSetupDialog 沒有直接的函數可以直接設定    --- 歡迎光臨 KTop 研究院

給二台印表機都指定個固定名稱吧，像HPLASER,EPSONINK    

for i := 1 to Printer.Printers.Count do
   if uppercase(Printer.printers[i-1])='HPLASER' then Printer.PrinterIndex:=i-1;    printer.begindoc;
with printer.canvas do begn
.....................
end;
printer.enddoc;    APPLICATION.PROCESSMESSAGE;// 喘一下準備印下一張    for i := 1 to Printer.Printers.Count do
   if uppercase(Printer.printers[i-1])='EPSONINK' then Printer.PrinterIndex:=i-1;    printer.begindoc;
with printer.canvas do begn
.....................
end;
printer.enddoc;    

就會各印各的了！

此問題因 hagar 已有解決答案, so 得分者為    > , 謝謝!

大家切磋，不在意分數囉！ 我不懂，不懂，不懂....所以我才來

japhenchen 大大, 別介意! 繼續這樣的切磋哦! --- 歡迎光臨 >