Question

VB怎么实现打印如图text所有内容.到a4纸上，布局就是图上这样的

若以下回答无法解决问题，邀请你更新回答

Answer 1

一般的打印到纸面（打印机）的代码如下：
Printer.CurrentX = 500 '文字起始处的横坐标,一般以"缇"为单位，567缇=1厘米
Printer.CurrentY = 1000 '文字起始处的纵坐标
Printer.FontName = "宋体" '字体名
Printer.FontSize = 12 '字号
Printer.FontBold = False '是否加粗
Printer.FontItalic = True '是否斜体
Printer.FontUnderline = True '是否加下划线
Printer.Print Text1.Text '要打印的文字内容
我的经验就是在纸上先测量出各内容预计的打印位置，换算为“缇”，通过改变CurrentX和CurrentY的值来改变打印位置（当然要考虑页边距），每个内容都重复上述代码（代码中内容不都是必需的，如加粗和下划线等内容）。对对位要求精确的要反复试验多次。
所有内容都输出之后，要加上一行：
Printer.EndDoc