Printer.PaperSize = vbPRPSA4 ' A4(210 * 297)
Printer.Orientation = vbPRORLandscape ' Landscape
Printer.ScaleHeight = 2100
Printer.ScaleWidth = 2970
Printer.DrawWidth = 5

r=0
k=10
Ypos = 1390
With adoRs
Do While r < k
If .EOF Then
Exit Do
End If

Printer.PSet (1085, Ypos), QBColor(15)
Printer.Print Format(.Fields("EB3_WTRUB") / 1000, "0.###")
Printer.PSet (1230, Ypos), QBColor(15)
Printer.Print Format(.Fields("EB3_WTRUB") / 1000 * 1.02, "0.###")
Printer.PSet (1375, Ypos), QBColor(15)
Printer.Print Format(.Fields("EB3_WTRUB") / 1000 * 0.98, "0.###")

Ypos = Ypos + 46
.MoveNext
r = r + 1
Loop
End With
代码是复制粘贴过来的,没写全, 这里的r,k是变量
主要想问的是 怎样让 printer.Print 所输出的内容 在程序运行过程中 时时的显示出来呢?
添加一个新的from窗体也好,在from窗体上显示出来也行,反正用别的方法也好 能时时的去看就行
拜托各位大哥,大姐了.

没有人会的吗? 求助啊~~

在 form1.Print 部分断点后  一步一步执行, 程序是正常执行完了, 可form1窗体上根本没有东西显示出来啊~~~~

我不是想知道,Format(.Fields("EB3_WTRUB") / 1000, "0.###") 这里所得出来的值,
我想知道在A4纸里 这些值和 打印出来的线 Printer.Line (1720, 270)-(2860, 270) 在什么位置上
就是程序在断点的情况下,想一步一步进行中, 看出A4纸里所打印出来的 位置和值.