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窗体上显示出来也行,反正用别的方法也好 能时时的去看就行
拜托各位大哥,大姐了.
[求助]怎样才能 时时的看到 我用(Printer.Print)所输出的 画面内容