Question

VB 打印预览

代码如下，想在打印前预览一下效果，希望给出详细代码，谢谢

Printer.ScaleMode = 6

Printer.Print

Dim dc, font, oldfont, oldmap As Long, str As String

dc = Printer.hdc

oldmap = SetMapMode(dc, 2)

font = CreateFont(40, 14, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "宋体")

str = "我想长大"

oldfont = SelectObject(dc, font)

TextOut dc, 20, -30, str, LenB(StrConv(str, vbFromUnicode))

Printer.EndDoc

Answer 1

你在窗体中放一个图片框（比如Picture1），然后你把上述代码中所有的Printer都换成Picture1（但最后一行即Printer.EndDoc要删掉），效果就是打印预览了。

Answer 2

for i=1 to 3
frmPrint.PrintForm '打印
next
打字不易，如满意，望采纳。