WPath := ExtractFilePath(ParamStr(0));
frReport1.Clear;
frReport1.dataset := nil;
frReport1.LoadFromFile(WPath +'门诊发票.frf');
frReport1.PrepareReport;
frReport1.Clear;
frReport1.dataset := nil;
frReport1.LoadFromFile(WPath +'门诊发票.frf');
frReport1.PrepareReport;
frReport1.PrintPreparedReport('',1,True,frall);
本文转自鹅倌51CTO博客，原文链接： http://blog.51cto.com/kaixinbuliao/1079080，如需转载请自行联系原作者
