請問一下 如何同時列印兩份不同

Hi joyce352,    由程式中去更改系統 Default 印表機，請參考以下文章 http://delphi.ktop.com.tw/topic.php?topic_id=37990 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi joyce352您好: Fishman版大提到用ListBox方法..    小弟這邊有另一個方法...利用TRegistry.. 有一個好處是可以依據特定系統來做設定 不會影響到電腦原本設定.. 參考看看    假設系統名稱為CusReport 針對特定系統寫入印表機

  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\SOFTWARE\CusReport\PRINTER', True)
    then
    begin
      Reg.WriteString('預設A印表機', Edit1.Text );
      Reg.WriteString('預設B印表機', Edit2.Text);
      //.......
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;

讀取印表機 QuickRepA.PrinterSettings.PrinterIndex:=SelectPrinter('預設A印表機'); // .... QuickRepB.PrinterSettings.PrinterIndex:=SelectPrinter('預設B印表機'); // ....

Function SelectPrinter(const S: String):Integer;
var
 c:integer;
 sprn:string;
 Reg: TRegistry;
begin
  SelectPrinter:=-1;
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\SOFTWARE\CusReport\PRINTER', True)
    then
    begin
      sprn:=Reg.ReadString(S);
    end;
  finally
    Reg.CloseKey;
    Reg.Free;
    inherited;
  end;
  c:=0;
  for c:=0 to printer.printers.count-1 do
  begin
    if sprn=printer.printers[c]  then
    begin
      Printer.PrinterIndex:=c;
      SelectPrinter:=c;
      break;
    end;
  end;
end;

~悠遊法國號~

Hi joyce352 您好: 不曉得你是用哪種報表列印, 通常可直接修改Report的PrinterIndex來達成, QuickRep1.PrinterSettings.PrinterIndex:=0; 也可以將印表機設定一個名稱, 用名稱的方式修改PrinterIndex

NowPrinter:=TPrinter.Create;
QuickRep1.PrinterSettings.PrinterIndex:=NowPrinter.Printers.IndexOf('Printer2');
NowPrinter.Free;

*************** QuickRep1.PrinterSettings.PrinterIndex := -1;為系統預設印表機 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

如果是要用在DELPHI的 QuickRep上 不知要如何使用??(要寫在那一個事件上) 謝謝...

Hi joyce352您好 : 剛好我的範例就是QuickReport的, 你只要寫在Print 或 Preview之前即可 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.