请各位高手帮忙,预览打印可以,直接打印报错.
错误提示:  list index out of bounds(0)
----------------------------------------------------------------------
a:=TfrMemoView(form3.frReport1.FindObject('Memo2'));
a.Prop['LEFT']:=adodataset3.FieldByName('1l').AsString;
a.Prop['top']:=adodataset3.FieldByName('1t').AsString;
b:=TfrMemoView(form3.frReport1.FindObject('Memo4'));
b.Prop['LEFT']:=adodataset3.FieldByName('2l').AsString;
b.Prop['top']:=adodataset3.FieldByName('2t').AsString;
form3.Show;
//form3.frReport1.PrepareReport;
form3.frReport1.PrintPreparedReport('',1,true,frall);  //直接打印这报错
form3.frReport1.ShowReport;
form3.Close;请给位帮帮忙呀......