adodataset1.Close; adodataset1.Connection:=adoconnection1; adodataset1.CommandText:='SELECT * FROM storage WHERE InputDate >cast('''+edit1.text+''' as datetime) and InputDate<cast('''+edit2.text+''' as datetime)'; adodataset1.Open; frreport1.PrepareReport; frreport1.ShowPreparedReport;
adodataset1.Close; adodataset1.Connection:=adoconnection1; adodataset1.CommandText:='SELECT * FROM storage WHERE InputDate >cast('''+edit1.text+''' as datetime) and InputDate<cast('''+edit2.text+''' as datetime)'; adodataset1.Open; frreport1.PrepareReport; frreport1.ShowPreparedReport;
adodataset1.Connection:=adoconnection1;
adodataset1.CommandText:='SELECT * FROM storage WHERE InputDate >cast('''+edit1.text+''' as datetime) and InputDate<cast('''+edit2.text+''' as datetime)';
adodataset1.Open;
frreport1.PrepareReport;
frreport1.ShowPreparedReport;
要不然,打印一页后所有的纸张就退出来了啊 55
adodataset1.Connection:=adoconnection1;
adodataset1.CommandText:='SELECT * FROM storage WHERE InputDate >cast('''+edit1.text+''' as datetime) and InputDate<cast('''+edit2.text+''' as datetime)';
adodataset1.Open;
frreport1.PrepareReport;
frreport1.ShowPreparedReport;
如果你设定了纸张大小, 翻页上程序上就没有问题.
退纸显然和你的打印机设置走纸方向有关, 这个可能需要手工设置打印机, 不是通过Windows设置.