printer.print label1.caption
printer.print text1.text
printer.print text1.text
解决方案 »
- 使用VB 6.0+webBrowser控件,怎么样才能通过样式名得到具体的样式内容?
- 如何做动态链接库(.dll)
- 请问使用microsoft media player 控件时如何设置循环播放
- 请问有没有针对VB的类似于CJLib的第三方界面库?
- 请问:如何把 VB 的 EXE 源码转变为 DLL 源码,并且产生 DLL 文件 ?
- 请问,VB6.0中的comboBox的双击事件好像无效啊,怎么回事,在线等!第一个解决的人,得全部分!
- 急,关于记录插入问题?
- 问一个用VB开发使用sql server的问题。
- 菜鸟问题,百万火急! 如何在VB中的可视化数据管理器中新建一个Foxpro3.0数据库?
- VB的打印问题
- 哪里有True DBGrid Pro 7.0的中文使用或参考手册?
- 小键盘……
'On Error GoTo KKKDim intI As Long
For intI = 0 To Me.Controls.Count - 1
If TypeName(Me.Controls(intI)) = "TextBox" Then
Me.Controls(intI).Appearance = 0
Me.Controls(intI).BorderStyle = 0
End If
Next intI
On Error GoTo KKK
Dim sx As Long, sy As Long, hDC As Long
Dim px As Long, py As Long, I As Integer
Me.ScaleMode = vbPixels
sx = Me.Width / Screen.TwipsPerPixelX
sy = Me.Height / Screen.TwipsPerPixelY
PicPrint.Width = sx
PicPrint.Height = sy
For I = 0 To Controls.Count - 1
If TypeName(Controls(I)) = "Menu" Then Controls(I).Visible = False
If TypeName(Controls(I)) = "PictureBox" Then Controls(I).Visible = False
Next
DoEvents
Text1(12).Visible = True
Text1(12).SetFocus
PicPrint.AutoRedraw = True
hDC = GetWindowDC(Me.hwnd)
BitBlt PicPrint.hDC, -2, -2, sx, sy, hDC, 0, 0, vbSrcCopy
ReleaseDC Me.hwnd, hDC
PicPrint.AutoRedraw = False
For I = 0 To Controls.Count - 1
If TypeName(Controls(I)) = "Menu" Then Controls(I).Visible = True
Next Set PicPrint.Picture = PicPrint.Image
Dim w As Long, h As Long
Printer.Orientation = vbPRORLandscape
Me.ScaleMode = vbTwips
Printer.ScaleMode = vbTwips
w = PicPrint.Width * n \ 100
h = PicPrint.Height * n \ 100
px = (Printer.ScaleWidth - w) / 2
py = (Printer.ScaleHeight - h) / 2
Printer.PaintPicture PicPrint.Picture, px, py, w, h
Printer.EndDoc
For intI = 0 To Me.Controls.Count - 1
If TypeName(Me.Controls(intI)) = "TextBox" Then
Me.Controls(intI).Appearance = 0
Me.Controls(intI).BorderStyle = 1
End If
Next intI
Exit Sub
KKK:
MsgBox "打印机连接错误!", vbOKOnly, warning
End SubN为放大倍数
【我不是流氓~~~~~~~才怪!】
================================================================
[email protected]