| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 787 人关注过本帖
标题:[求助]怎样才能 时时的看到 我用(Printer.Print)所输出的 画面内容
只看楼主 加入收藏
lixiong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-9-15
收藏
 问题点数:0 回复次数:6 
[求助]怎样才能 时时的看到 我用(Printer.Print)所输出的 画面内容

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 画面 输出 
2007-03-23 10:06
lixiong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-9-15
收藏
得分:0 

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

2007-03-23 10:54
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

你将Printer改为Form1不就行了?


我的msn: myfend@
2007-03-23 11:01
lixiong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-9-15
收藏
得分:0 
在 form1.Print 部分断点后  一步一步执行, 程序是正常执行完了, 可form1窗体上根本没有东西显示出来啊~~~~
2007-03-23 11:13
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 
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.###")

2007-03-23 11:26
lixiong
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-9-15
收藏
得分:0 
我不是想知道,Format(.Fields("EB3_WTRUB") / 1000, "0.###") 这里所得出来的值,
我想知道在A4纸里 这些值和 打印出来的线 Printer.Line (1720, 270)-(2860, 270) 在什么位置上
就是程序在断点的情况下,想一步一步进行中, 看出A4纸里所打印出来的 位置和值.
2007-03-23 11:39
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 

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


2007-03-23 11:47
快速回复:[求助]怎样才能 时时的看到 我用(Printer.Print)所输出的 画面内容
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048083 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved