FastReport 用程式碼來切換印表機

bestlong

1. var
   
2.   AIndex : Integer;
   
3.   hDevMode: THandle;
   
4.   Device, Driver, Port: array[0..1024] of Char;
   
5.   DeviceMode: PDevMode;
   
6. 
   
7. begin
   
8. 
   
9.   if not PrintDialog1.Execute then Exit;
   
10. 
    
11.   frxReport1.PrepareReport(True);
    
12.   frxreport1.PrintOptions.ShowDialog := False;
    
13. 
    
14.   AIndex := frxPrinters.IndexOf(Printer.Printers[Printer.PrinterIndex]);
    
15. 
    
16.   if AIndex <> -1 then
    
17.   begin
    
18.     frxPrinters.PrinterIndex := AIndex;
    
19.     frxreport1.PrintOptions.Printer := frxPrinters[AIndex].Name;
    
20.     frxreport1.SelectPrinter;
    
21. 
    
22.     Printer.GetPrinter(Device, Driver, Port, hDevMode);
    
23.     if hDevMode <> 0 then
    
24.       DeviceMode := GlobalLock(hDevMode);
    
25. 
    
26.     TfrxPrinter(frxPrinters.Printer).DeviceMode.dmColor := DeviceMode^.dmColor;
    
27.     GlobalUnlock(hDevMode);
    
28.     //frxPrinters.Printer.PropertiesDlg;
    
29.     frxReport1.Print;
    
30.   end;
    
31. 
    
32. end;

複製代碼

參考來源 http://www.fast-report.com/en/forum/index.php?showtopic=8809