Question

按照设计的格式用打印机打印文本框内的内容。VB 代码怎么写？ 需要用到什么其他的控件等 ， 最好详细点

格式

Answer 1

你可以先导出来然后打印就好了，比如写到一个文本文件中，然后打印
Private Sub Command1_Click()
Open "D:\1.txt" For Output As #1
Print #1, Text1.Text & " " & Text2.Text & " " & Text3.Text
Print #1, Text10.Text
Print #1, Text4.Text & " " & Text5.Text & " " & Text6.Text
Print #1, Text7.Text & " " & Text8.Text & " " & Text9.Text
Close #1
MsgBox "导出成功！可以使用文本文件打印了！", vbOKOnly + vbInformation, "提示信息"
End Sub

追问

谢谢你！辛苦了。但是导出文本局限性太大了。需要注意的是：每个文本框内的字体大小不一样（这个我知道在文本框的属性能设置），行与行之间并不一定是正规几个行距那样，每行的文本内容间隔也不同。我想要直接按打印按钮就能打，再帮帮忙吧。

Answer 2

#!/usr/bin/perl
my $dir = $ARGV[0];
my $dst = $ARGV[0];

if (!defined $dir){
print "缺少参数!\n";
exit(-1);
}
if (!-d $dir){
print "$dir不是可用的目录\n";
exit(-1);

Answer 3

你用什么设计的格式，有空白格式文件吗？

追问

就是10个文本框内容的按图片上位置那样打印出来

追答

现在很多程序都是用外接格式文件来进行打印的。象word、Excel都可以实现。
你可以在excel中设计好格式，然后打印按钮的代码中要加入导出至excel的代码，导出完成后调用打印excel文档就行了。