Private Sub Command1_Click()
On Error GoTo ABC
Picture1.Picture = LoadPicture("C:\456\1.jpg")
If Picture1.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture1.Picture, 0, 0
Else
MsgBox "Picture1中沒有圖片可列印！"
End If
Printer.EndDoc
ABC:
Exit Sub
End Sub
列印出來的圖片 只顯示一部分 怎么解決呢？？？
uj5u.com熱心網友回復：
是不是你的圖片太大了，呀是圖片框不夠大uj5u.com熱心網友回復：
版主： 現在的主要目的是對任意尺寸的圖片進行列印， 比如說列印成 四寸 或者六寸 等等................現在對原始圖片尺寸處理有的糾結，
Private Sub Form_Load()
Printer.ScaleMode = 3 '單位為毫米
' Printer.Copies = 10 '列印份數為10
' Printer.PaperSize = vbPRPSUser '紙張為自定義尺寸
Printer.PrintQuality = 4 '照片質量高品質列印
Printer.ScaleWidth = 1181.1 '紙張寬度mm，比如210mm
Printer.ScaleHeight = 1771.7 '紙張高度mm,比如297mm
Printer.ColorMode = 2 '彩色輸出
Picture1.Picture = LoadPicture("C:\images.jpg") '這時加入背景圖,使其一運行就充滿表單
Picture1.Visible = True
Picture1.ScaleMode = 3
Picture1.AutoRedraw = True
Picture2.ScaleMode = 3
Picture2.ScaleHeight = 1771.7
Picture2.ScaleWidth = 1181.1
Picture2.AutoRedraw = False
Picture2.Visible = True
Call Form_Resize
Me.Refresh
Me.AutoRedraw = False
End Sub
Private Sub Form_Resize()
Dim Rtn As Long
Dim hDC1 As Long, hDC2 As Long, hDC3 As Long
hDC1 = Picture1.hdc
hDC2 = Me.hdc
hDC3 = Picture2.hdc
Call SetStretchBltMode(hDC3, HALFTONE)
Rtn = StretchBlt(hDC3, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight, hDC1, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, SRCCOPY)
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1.Picture, 0, 0
Printer.PaintPicture Picture2.Picture, 0, 0, 1181.1, 1771.7
Printer.EndDoc
Me.Refresh
End Sub
用 StretchBlt 縮放后， 把picture1 里面的圖片 縮放到picture2, 最后竟然無法列印 picture2,
現在的問題是縮放后的圖片怎么進行保存？
反正是比較糾結,,,,,,,,,高手們多多指教@
能給個示例代碼更好
uj5u.com熱心網友回復：
Private Sub Form_Resize()
Picture2.AutoRedraw = True
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture2.ScaleWidth, Picture2.ScaleHeight
Printer.PaintPicture Picture2.Image, 0, 0, 1181.1, 1771.7
Printer.EndDoc
Me.Refresh
End Sub
uj5u.com熱心網友回復：
判斷一下大小，如果小于標準大小，則直接列印。如果大于標準大小，則等比例到標準大小。
等比例時判斷一下原始圖的長寬，確定以哪個比例為綻放比例。
uj5u.com熱心網友回復：
最后那兒：Printer.PaintPicture Picture2.Picture, 0, 0, 1181.1, 1771.7應該是 Picture2.Image吧！
uj5u.com熱心網友回復：
謝謝各位大俠，問題已經解決............轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/93844.html
標籤：API
上一篇：vb 五線譜作曲
下一篇：k3 插件獲取表單的值