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

#2

风吹过b2022-11-09 22:00

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

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

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

#3

yuma2022-11-10 05:09

回复 2楼风吹过b

不需要用像素吧？

Word有物理尺寸功能的。

只有本站会员才能查看附件，请登录

#4

cwa99582022-11-11 16:47

你是用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

#5

yuma2022-11-11 19:54

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

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

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