VB在A4纸上打印一个 15*17cm的矩形，如何打印?

VB操作Word比较方便吧？

你先理解缇这个单位，然后再理解 缇与厘米 的换算比例。

对于VB6 来说
操作打印，就像 在 图像框上作画一样的，使用的也是一套命令。

printer 打印机对象，直接使用时对应的是默认打印机。可以指定打印机来选择不同的打印机。
先设置纸张大小，然后根据纸张尺寸计算，
1、最大可用坐标
2、我们使用的坐标的左上角，的右下角。
然后在画矩形。画完后，结束打印。

不需要用像素吧？

Word有物理尺寸功能的。

你是用word还是vb？
下面代码就是打印一个15cm×17cm的矩形。实际尺寸可能与具体的打印机不同会有点偏差
Private Sub Command1_Click()
    Printer.ScaleMode = vbMillimeters  '设置打印机度量为mm
    Printer.Line (10, 10)-(10, 180)
    Printer.Line -(160, 180)
    Printer.Line -(160, 10)
    Printer.Line -(10, 10)

End Sub

cwa9958版主肚子里还是有点货的。

给你代码改了一下，其实这样就行了。

Printer.Line (0, 0)-(150, 170), vbRed, B