Sub PrintAnywhere (Src As Object, Dest As Object)
Dest.PaintPicture Src.Picture, Dest.Width / 2, _
Dest.Height / 2
If Dest Is Printer Then
Printer.EndDoc
End If
End Sub
Dest.PaintPicture Src.Picture, Dest.Width / 2, _
Dest.Height / 2
If Dest Is Printer Then
Printer.EndDoc
End If
End Sub
解决方案 »
- 在VB环境中运行正常,但在VB中生产exe文件后一运行就出错:运行时错误:'-2147023898 (800703e6)': Automation 错误
- 如何才能监视进程的创建
- ado连接数据库提示“无法注册类别”
- utf-8编码问题
- 我想看一个dll里面包括了那些函数以及参数,是否有这样的工具?
- 各位需要完整的原代码的,请留下你的E-mail!!
- 利用Get Prite Profiletring读取文件时,若不知道LpApplriction Name及Lpley Name,如何通过循环读取这些数据到字符串数组中?
- 麻烦大了!!!!!
- VB和SQLServer的问题
- 请教(我是新手,只有50分,全给您了)
- Help!!关于c/s模式用winsock传输图片,(只能是4k以下的,为什么??)附源代码
- 控件的问题,可能有点难
http://www.yueliangwan.com.cn/yf/PrintView/PrintView.htm