我在打印時,是這樣寫的
-----------------------------------------------------
allprt.SQL.Clear;
allprt.SQL.Text:='select csbh from cg_cszl order by csbh';
allprt.Open;
while not allprt.Eof do
begin
h:=0;
yfdz_p1.active:=false;
yfdz_p1.Parameters.ParamByName('@csbh').Value:=allprt.fieldbyname('csbh').AsString;
yfdz_p1.Parameters.ParamByName('@t1').Value:=formatdatetime('yyyy-mm-dd',datetimepicker1.date);
yfdz_p1.Parameters.ParamByName('@t2').Value:=formatdatetime('yyyy-mm-dd',datetimepicker2.date);
yfdz_p1.active:=true;
yfdz_fr.showreport;
allprt.Next;
end;
allprt.Close;
------------------------------------------------------------------
這樣每一個CSBH就會出現一個打印預覽界面,關掉一個才會出現下一個界面
請問:可不可以做到後面的CSBH選 出來打印的頁面追加到前一CSBH的打印頁面後
最後只出現一次打印預覽的界面,而預覽的內容是所有CSBH,
謝謝!!分不夠,另外開帖加...
-----------------------------------------------------
allprt.SQL.Clear;
allprt.SQL.Text:='select csbh from cg_cszl order by csbh';
allprt.Open;
while not allprt.Eof do
begin
h:=0;
yfdz_p1.active:=false;
yfdz_p1.Parameters.ParamByName('@csbh').Value:=allprt.fieldbyname('csbh').AsString;
yfdz_p1.Parameters.ParamByName('@t1').Value:=formatdatetime('yyyy-mm-dd',datetimepicker1.date);
yfdz_p1.Parameters.ParamByName('@t2').Value:=formatdatetime('yyyy-mm-dd',datetimepicker2.date);
yfdz_p1.active:=true;
yfdz_fr.showreport;
allprt.Next;
end;
allprt.Close;
------------------------------------------------------------------
這樣每一個CSBH就會出現一個打印預覽界面,關掉一個才會出現下一個界面
請問:可不可以做到後面的CSBH選 出來打印的頁面追加到前一CSBH的打印頁面後
最後只出現一次打印預覽的界面,而預覽的內容是所有CSBH,
謝謝!!分不夠,另外開帖加...
allprt.SQL.Text:='select csbh from cg_cszl order by csbh';
allprt.Open;
while not allprt.Eof do
begin
...........end;
yfdz_fr.showreport;//把打印语句放这里
allprt.Close;
跟着Demo做一次比我说更清楚。