Ich verwende bisher folgenden Code um das Setup, je nach Userwünschen, anzusteuern
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29:
| rv_listen: TRvProject; RvSystem1: TRvSystem;
.....
rvSystem1.DefaultDest := rdPrinter; case gi_userdruckoption of 0 : begin RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetUp]; RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowPreviewSetUp]; end; 1 : begin rvSystem1.DefaultDest := rdPreview; RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetUp]; RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowPreviewSetUp]; end; 2 : begin rvSystem1.DefaultDest := rdPrinter; RvSystem1.SystemSetups := RvSystem1.SystemSetups + [ssAllowSetUp]; RvSystem1.SystemSetups := RvSystem1.SystemSetups + [ssAllowPreviewSetUp]; end; end; rv_listen.ProjectFile := Reportpfad; rv_listen.Open; rv_listen.Execute; rv_listen.Close; |
Nach dem Umstieg auf XE7 bin ich nun am umstellen auf FastReport, was grundsätzlich easy ist, dank des Konverters der nur einige wenige Anpassungen übrig lässt. Doch mit dem Preview/Print-Setup ists nicht ganz so trivial, weil eben völlig anders geregelt. Hat jemand so was schon mal umgestellt und gerade ein Stück Code zur Hand?
mfg. Joel