StringGrid中内容的打印?

DataBind 2000-08-30 08:44:00
var
i:integer;
f: TextFile;
line :string;

begin
AssignPRN(f);
Rewrite(f);

Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Font.PixelsPerInch := GetDeviceCaps(Printer.Canvas.Handle, LOGPIXELSY);
Printer.Canvas.Font.Pitch :=fpFixed ;
Printer.Canvas.Font.Charset :=GB2312_CHARSET;
我相知道我打印的东东为什么不对齐?format怎么用才对?
// SetTextAlign(Printer.Canvas.Handle,TA_RIGHT );
line :=format('%12s%16s%12s%8s%12s%12s',['商品编码','商品名称','单价','数量','折扣额','小计']);
writeln(f,line);

for i:=0 to sg.RowCount -2 do
begin
if(sg.cells[7,i] <> '') then{sg是一个StringGrid控件}
begin
line := format('%12s%16s%12s%8s%12s%12s',
[sg.cells[1,i],sg.cells[2,i],sg.cells[3,i],
sg.cells[4,i],sg.cells[6,i],sg.cells[7,i]]);
writeln(f,line);
end;
end;

System.CloseFile(f);
end;
...全文
74 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
DataBind 2000-08-30
  • 打赏
  • 举报
回复
我的打印设置也不对,谁能告之?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧