WPath := ExtractFilePath(ParamStr(0));
    frReport1.Clear;
    frReport1.dataset := nil;
    frReport1.LoadFromFile(WPath +'门诊发票.frf');
    frReport1.PrepareReport;
    frReport1.PrintPreparedReport('',1,True,frall);