bestlong 怕失憶論壇

標題: FastReport 用程式碼來切換印表機 [打印本頁]

---

作者: bestlong    時間: 2014-12-17 16:29     標題: FastReport 用程式碼來切換印表機

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

---

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

Powered by Discuz! X1.5