Question

VB打印的问题

我用VB6.0写了一个程序,程序需要打印一个Form窗口（包括里面的所有内容.）.
请问专家们, 我如何实现Form的缩放打印？ 比如我缩放为50%进行打印...
Printer的Zoom属性用过了，但是好像打印效果没有什么变化...
请大师指点

Answer 1

直接用Printer控件即可

Set Printer = Printers(0) '设定打印机
Printer.ScaleMode = vbMillimeters '设定单位毫米

Printer.fontname = "宋体" '设定字体
Printer.Fontsize = 10
Printer.FontBold = False
Printer.FontItalic = False

Printer.Line (10, 10)-Step(1, 1) '划线从坐标10,10到11,11

Printer.CurrentX = 10 '设定文字的左边距
Printer.CurrentY = 10 '设定文字的上边距
Printer.Print "文字" '输出文字，输出后别忘了重新设定边距

Printer.NewPage '新建一页

Printer.EndDoc '打印机输出

Printer控件属性也不是太多，花点时间研究一下，肯定能满足你的需求的。
打字不易，如满意，望~~。

追问

我希望是缩放打印，比如缩放50%进行打印 请问如何实现