Question

delphi stringgrid 打印问题

我是做服装的，自己学delphi,现在我要打印stringgrid内容。用到FastReport控件，代码从DEMO中移植过来，没有分了，请大家帮帮忙
procedure TFrmRuleSize.frxReport1BeforePrint(Sender: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if Sender is TfrxCrossView then
begin
Cross := TfrxCrossView(Sender);
for i := 1 to StringGrid1.RowCount-1 do
for j := 1 to StringGrid1.ColCount-1 do
Cross.AddValue([i], [j], [StringGrid1.Cells[i - 1, j - 1]]);
end;
end;
stringgrid 中的内容如图

运行出错，类型不对，象这种字符型的打印应该怎么写。
自己搞定了





Answer 1

请查看你的系统中是否安装了打印机的驱动程序，如果系统中没有安装打印机驱动程序，会出现此问题。

追问

有打印机驱动