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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
{
This file is part of the Free Component Library.
Copyright (c) 2016 Michael Van Canneyt, member of the Free Pascal development team
FPReport export - render fpReport to printer.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit fpreportprinterexport;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fpreport, fpreportlclexport, printers, Dialogs, PrintersDlgs;
Type
{ TFPreportPrinterExport }
TFPreportPrinterExport = Class(TFPReportExporter)
private
FCurrentPage: Integer;
FFirstPage: Integer;
FLastPage: Integer;
FPrinter: TPrinter;
FShowPrinterDialog: Boolean;
function DoShowPrinterDialog(AMaxPageCount: Integer): Boolean;
function MustPrintPage(PageNo: Integer): Boolean;
procedure PrintPage(P: TPrinter; E: TFPReportExportCanvas; PageNo: Integer);
Protected
procedure DoExecute(const ARTObjects: TFPList); override;
Public
Constructor Create(AOwner: TComponent); override;
Class Function Name : String; override;
Class Function Description : String; override;
Property Printer : TPrinter Read FPrinter Write FPrinter;
Published
Property ShowPrinterDialog : Boolean Read FShowPrinterDialog Write FShowPrinterDialog;
Property FirstPage : Integer Read FFirstPage Write FFirstPage;
Property LastPage : Integer Read FLastPage Write FLastPage;
Property CurrentPage : Integer Read FCurrentPage Write FCurrentPage;
end;
implementation
Resourcestring
SErrNoPrinter = 'No printer configured.';
{ TFPreportPrinterExport }
function TFPreportPrinterExport.MustPrintPage(PageNo: Integer): Boolean;
begin
Result:=(PageNo>=FirstPage)
and ((LastPage=0) or (PageNo<=LastPage));
end;
procedure TFPreportPrinterExport.PrintPage(P : TPrinter; E : TFPReportExportCanvas; PageNo : Integer);
begin
E.Canvas:=P.Canvas;
E.PageIndex:=PageNo;
E.Execute;
end;
function TFPreportPrinterExport.DoShowPrinterDialog(AMaxPageCount: Integer
): Boolean;
var
Dlg : TPrintDialog;
begin
Dlg:=TPrintDialog.Create(Self);
try
Dlg.FromPage:=FirstPage;
Dlg.ToPage:=LastPage;
Dlg.MaxPage:=AMaxPageCount;
Dlg.MinPage:=1;
Dlg.Options:=[poPrintToFile, poPageNums];
if (CurrentPage>0) and (CurrentPage<=AMaxPageCount) then
Dlg.PrintRange:=prAllPages;
Result:=Dlg.Execute;
if Result then
begin
if Dlg.PrintRange=prPageNums then
begin
Dlg.FromPage:=FirstPage;
Dlg.ToPage:=LastPage;
end;
end;
finally
Dlg.Free;
end;
end;
procedure TFPreportPrinterExport.DoExecute(const ARTObjects: TFPList);
Var
P : TPrinter;
E : TFPReportExportCanvas;
I : Integer;
First : Boolean;
begin
if ShowPrinterDialog then
if not DoShowPrinterDialog(ARTObjects.Count) then exit;
P:=Printer;
if P=Nil then
P:=Printers.Printer;
if P=Nil then
Raise EReportExportError.Create(SErrNoPrinter);
E:=TFPReportExportCanvas.Create(Self);
try
E.Report:=Self.Report;
E.HDPI:=P.XDPI;
E.VDPI:=P.YDPI;
First:=true;
For I:=0 to ARTObjects.Count-1 do
if MustPrintPage(I+1) and Not P.Aborted then
begin
if First then
P.BeginDoc
else
P.NewPage;
PrintPage(P,E,I);
First:=False;
end;
P.EndDoc;
finally
E.Free;
end;
end;
constructor TFPreportPrinterExport.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ShowPrinterDialog:=True;
end;
class function TFPreportPrinterExport.Name: String;
begin
Result:='Print';
end;
class function TFPreportPrinterExport.Description: String;
begin
Result:='Print to printer';
end;
initialization
TFPreportPrinterExport.RegisterExporter;
end.
|
