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改为Form1不就行了?

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

3楼MM是让你把打印数据送到form显示。 你送到打印机 再单步form上也不会显示的。

作为调试的一种手段 你可以把应该送到打印机的数据先显示在form上 比如用一个大textbox 多行显示。 调试完毕后 再修改成送到打印机

' 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.###")

textbox1.text = Format(.Fields("EB3_WTRUB") / 1000, "0.###")
textbox2.text = Format(.Fields("EB3_WTRUB") / 1000 * 1.02, "0.###")
textbox3.text = Format(.Fields("EB3_WTRUB") / 1000 * 0.98, "0.###")

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

-_- 用打印预览不行吗？ 非得要单步打印？