打印picturebox 中的Label textbox等

2004-10-21 01:46:09 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vs2005常用控件大全数据显示: DataGridView 控件 DataGridView 控件提供用来显示数据的可自定义表。使用 DataGridView 类，可以自定义单元格、行、列和边框。注意 DataGridView 控件提供 DataGrid 控件所不具备的许多基本和高级功能。有关更多信息数据绑定和定位: BindingSource 组件通过提供当前项管理、更改通知和其他服务，来简化将窗体上的控件绑定到数据阅读详情

我在PICTUREBOX控件中用 Label 和textbox 控件做了一个复杂的表，如何才能将之存为位图打印出来？且大小根据纸张的大小调至合适？

我用了Printer.PaintPicture picture.image, 0, 0 只打印出一个空白的 picturebox控件，label控件和textbox 控件都没有显示，什么原因，请指教。

...全文

WPF数据绑定原理与INotifyPropertyChanged工程实践 WPF数据绑定是声明式UI开发的核心机制，其本质依赖于INotifyPropertyChanged接口实现属性变更的自动通知。该机制通过建立属性依赖图，使UI能响应数据变化，支撑起MVVM等现代架构模式。技术价值在于解耦UI与业务逻辑、提升可维护性与测试性，并为跨平台框架（如MAUI、Avalonia）提供设计范式基础。典型应用场景包括桌面管理后台、企业级配置工具及实时数据看板。本文深入剖析INotifyPropertyChanged的手动实现要点、链式通知原理，以及ObjectDataProvider与I 阅读详情

wolfloveu

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

VBToy 2005-02-19

打赏
举报

参考下面的吧，应该可以解决你的问题：
Option Explicit
Private validUser As Boolean

Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(7) As Byte
End Type

Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (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 Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hDc As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDc As Long) As Long
Private Type PicBmp
Size As Long
Type As Long
hBMP As Long
hPal As Long
Reserved As Long
End Type

Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Function CreateBitmapPicture(ByVal hBMP As Long, ByVal hPal As Long) As Picture
On Error Resume Next
Dim R As Long

Dim pic As PicBmp
Dim IPic As IPicture
Dim IID_IDispatch As GUID

With IID_IDispatch
.Data1 = &H20400
.Data4(0) = &HC0
.Data4(7) = &H46
End With

With pic
.Size = Len(pic)
.Type = vbPicTypeBitmap
.hBMP = hBMP
.hPal = hPal
End With

'建立Picture图象
R = OleCreatePictureIndirect(pic, IID_IDispatch, 1, IPic)
Set CreateBitmapPicture = IPic
End Function
Private Sub Command3_Click()
Dim x As Long, y As Long
Dim W As Long, H As Long
Dim s As String
Dim R As Single
If validUser = False Then
MsgBox "Invalid user!", vbInformation + vbOKOnly, "Invalid User"
Exit Sub
End If
Picture1.AutoRedraw = True
Dim hwndDeskTop As Long, hdcDesktop As Long
Me.ScaleMode = vbPixels
R = 0.9
'hwndDeskTop = GetDesktopWindow()
'hdcDesktop = GetWindowDC(hwndDeskTop)
Dim hDc As Long, hBMP As Long
hDc = CreateCompatibleDC(Me.hDc)
hBMP = CreateCompatibleBitmap(Me.hDc, CLng(Picture1.Width * R), Picture1.Height)
SelectObject hDc, hBMP
BitBlt hDc, 0, 0, CLng(Picture1.Width * R), Picture1.Height, Me.hDc, Picture1.Left, Picture1.Top, vbSrcCopy

'BitBlt Picture1.hDc, 0, 0, CLng(Picture1.Width * 9 / 10), Picture1.Height, Me.hDc, Picture1.Left, Picture1.Top, vbSrcCopy
'ReleaseDC hwndDeskTop, hdcDesktop
s = App.Path & "\BC" & Text1.Text & ".bmp"
'SavePicture Picture1.Image, s
SavePicture CreateBitmapPicture(hBMP, 0), s
DeleteObject hBMP
DeleteDC hDc

MsgBox "保存成功!" & vbCrLf & vbCrLf & "文件名为：" & s & vbCrLf & vbCrLf & "Copyright by Leo Xudong", vbOKOnly, "条形码保存"

End Sub

sky9705 2005-02-19

打赏
举报

楼上的，你一直帖这个，但这个不能解决问题。
只能打印里面的图象，之外就不行了。。

badboy168 2004-10-21

打赏
举报

picture1.scalemode=3
printer.scalemode=3
printer.paintpicture picture1.image ，0，0，picture1.width,picture.height
scale=3并不重要，不过一定要让printer.scalemode的值和picture1.scalemode的值相同，printer默认的打印单位为缇,1缇=1/20英寸

GGL123 2004-10-21

打赏
举报

http://www.china-askpro.com/msg2/qa05.shtml

http://www.china-askpro.com/msg11/qa15.shtml

打印picturebox 中的Label textbox等

相关推荐