如何打印整个表单 stringgrid1 (100分)

  • 主题发起人 主题发起人 拥有
  • 开始时间 开始时间

拥有

Unregistered / Unconfirmed
GUEST, unregistred user!
writeln(prntext,stringgrid1.cells[...]);
我试过一个一个打印表单的每一项,但是表单内的数据,字符 若有长有短 整个表单的
格式就乱了, 谁能告诉我怎样能整齐的打印表单??
请详细说明:.................
 
查查以前的贴子,有打印FORM的例子,
但这个实现比较麻烦,还是导进数据库再输出吧。
 
stringgrid1的打印真的那么复杂吗?
以至于那么多高手都无法回答???
 
用Printers类文件应该可以实现
1)用round或Format把数字弄得一样长
2)对SringGrid的列和行扫描,用Pringter.Canvas.TextOut(x,y,StringGrid[j]显示StringGrid[j]的内容
3)增加x,列扫描完后,扫描行
 
for xx1:=1 to 8do
for yy1:=1 to 12do
stringgrid1.cells[xx1,yy1]:=format('%*** ',[stringgrid1.cells[xx1,yy1]]);
格式化字符串是这样子吗? 请更正
要把 'jeep' 转换成 'jeep ' 后面有4个空格
 
AdvStringGrid是从StringGrid它下面继承下来的,能直接打印
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
930
DelphiTeacher的专栏
D
D
回复
0
查看
871
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部