请问有什么办法在调用form.printform的时候只打印出自己需要的某些控件的内容?
解决方案 »
- vb6.0 与access2003 登录界面中需要到数据库中验证输入的用户名(表中有几个账户)
- 如何知道当前那个.TEXT获得光标
- vb 图形仓库如何实现?
- 请问,这两部分,分别应该用什么控件呢?
- 小弟碰到一个难题请教高手奉上100分,有关mswinsock控件和字符串的问题(急)
- vb用excel当后台作表,数据量大时无法将exce退出
- 水晶报表 8求教
- asp调用VB组件出现严重问题
- 谁能详细说明一下类模块和模块的区别和功能吗?(300分哦)
- 我在VB下做了一个控件,在ASP的客户端调用,就是用<OBJECT></OBJECT>来调,可是要想在<OBJECT>中用PARAM传一个参数,不知道在控件中怎么把这个参数取回,请高手帮帮我!
- vb6的 data report如何实现按组分页打印?
- 关闭XP Professinal下会话的问题
================================================================
此帖通过csdn小助手回复。
CSDN小助手是使用vb.net编写的CSDN论坛脱机“外挂”,她能够在
脱离IE的情况下使用Csdn论坛。程序只加载最核心的数据,所以显示更
快,产生的流量更小。 下载地址:http://qqwwee.com/csdn.rar
================================================================
(ByVal hDCDest As Long, ByVal XDest As Long, _
ByVal YDest As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hDCSrc As Long, _
ByVal XSrc As Long, ByVal YSrc As Long, _
ByVal dwRop As Long) As LongPrivate Declare Function GetWindowDC Lib _
"user32" (ByVal hWnd As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" _
(ByVal hWnd As Long, ByVal hdc As Long) As Long
Private Sub Command1_Click() PrintRPTEnd Sub
Private Sub PrintRPT()
Dim hDCSrc As Long
Dim WidthSrc As Long
Dim HeightSrc As Long
WidthSrc = Me.Pic_Print.Width \ Screen.TwipsPerPixelX
HeightSrc = Me.Pic_Print.Height \ Screen.TwipsPerPixelY
hDCSrc = GetWindowDC(Me.Pic_Print.hWnd)
Printer.Print ""
Call BitBlt(Printer.hdc, 0, 0, _
WidthSrc, HeightSrc, hDCSrc, _
0, 0, vbSrcCopy) Call ReleaseDC(Me.Pic_Print.hWnd, hDCSrc)
Printer.EndDoc
End Sub倒是能实现,可是效果不很理想,好象是打印出来的大小我没有办法控制。
后来只好放弃这个方法,调用 print方法打印所有要打印的内容,是比较麻烦。