请问如何打印出覆盖在picturebox中的控件?
解决方案 »
- 有 给jpg 图片增加水印的 ocx 或者 dll 吗?
- vb向SQL SERVER数据库中写入文件问题?AppendChunk,GetChunk操作后,无法从数据库恢复得到原文件。
- 能在datagrid中增加显示吗?没分了,大家帮帮忙
- 困扰我好几年了:VB做界面不如WEB上方便,是否可以用WebBrowser读写本地HTML文档替代?
- 关于Label的一个问题,好象是BUG
- 如何进行有效的日期查询,找出数据库中所有的年份?
- sql的怪问题!!!!各位大侠过来看看!!高分哦!!!!!
- 关于水晶报表的小小问题?
- 怎么用VB(注意:不是vb.net)创建web服务?
- 正在作个考试系统,如何能把access2000中的用ole保存的题目字段中word文档在word中进行排版,组卷???又没有原程序,请发给我!!谢谢
- 请问:有谁知道袁飞打印控件3.0在WIN2000下如何使用自定义纸张
- 请问“在模块中定义的全局变量,怎么保证它的值在运行过程中不丢失”?
就可以在最上面了
Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const PRF_CLIENT = &H4&
Private Const PRF_CHILDREN = &H10&
Private Const PRF_OWNED = &H20&
Private Const PHYSICALOFFSETX As Long = 112
Private Const PHYSICALOFFSETY As Long = 113
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd _
As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nindex _
As Long) As Long
private Sub Form_Load()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
Picture2.BorderStyle = 0
Picture2.Visible = False
End Sub
Private Sub Command2_Click()
Dim retval As Long, xmargin As Single, ymargin As Single
Dim x As Single, y As Single
x = 1: y = 1
With Printer
.ScaleMode = vbInches
xmargin = GetDeviceCaps(.hdc, PHYSICALOFFSETX)
xmargin = (xmargin * .TwipsPerPixelX) / 1440
ymargin = GetDeviceCaps(.hdc, PHYSICALOFFSETY)
ymargin = (ymargin * .TwipsPerPixelY) / 1440
Picture2.Width = Picture1.Width
Picture2.Height = Picture1.Height
DoEvents
Picture1.SetFocus
retval = SendMessage(Picture1.hwnd, WM_PAINT, Picture2.hdc, 0)
retval = SendMessage(Picture1.hwnd, WM_PRINT, Picture2.hdc, _
PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
DoEvents
Printer.Print ""
.PaintPicture Picture2.Image, x - xmargin, y - ymargin
.EndDoc
End With
End Sub
消化一下,本人太菜了
我想问一下怎样能清空上一次打印的东西 你代码你写着Printer.Print "" 这是打印清空吧,但是为什么不能清空大于屏幕的东西,有什么办法啊?