setting the printer in runtime

Comments

• MSC

  January 2013 edited 8:13AM

  mithcd wrote: »

  Try this.
  

  uses printers,....
  ....
  ....
  ....
  var
  printer:TPrinter;
  index:integer;
  begin
  printer:= TPrinter.Create;
  printer.Printers;
  //ListBox1.Items:=printer.Printers;//if it is necessary possible to take list a printer
  index:=printer.PrinterIndex;//take current printer
  frReport1.ShowPrintDialog:=false;
  //we print 1-ouch report on 2 printer
  frReport1.LoadFromFile('rep1.frf');
  frReport1.ChangePrinter(index,2);//change printer with the current index on printer with index 2.
  frReport1.PrepareReport;
  frReport1.PrintPreparedReportDlg;
  //frReport1.PrintPreparedReport();//possible in the same way use this function
  //we print 2-ouch report on 3-m printer
  index:=printer.PrinterIndex;//take current printer
  frReport1.LoadFromFile('rep2.frf');
  frReport1.ChangePrinter(index,3);//change printer with the current index on printer with index 3.
  frReport1.PrepareReport;
  frReport1.PrintPreparedReportDlg;
  end;
  

  
  Thx for your reply. This example is the right one...