打印圖片

[yangfengcl]

現在在form1上有一個image1()數組,和一個label1()數組.一個image的下方就對就一個label.
現在我想點擊按扭時,就按一定的坐標和大小打印這些圖片和文本.
form1上有一個text2顯示image1橫排的個數.打印時跟据text2的數量來決定每行打印圖片的數量,每張圖片的寬度=紙張大小/text2-圖片間的空隙,圖片高度=圖片寬度/1.33333,label做為圖片的名字顯示在每圖片下方.

[yangfengcl]

能不能寫點代碼，舉個例子看看

[chcky]

用print方法

[3q2008Com]

Private Sub Command1_Click()
Command1.Visible = False
Command2.Visible = False
Command3.Visible = False
Me.PrintForm
Command1.Visible = True
Command2.Visible = True
Command3.Visible = True
End Sub
Private Sub Command2_Click()
Printer.Height = 16000
Printer.Width = 11300
Dim A, b, c, d, e, f, g, h As Single
A = 4000: b = 3000: c = 1200
d = 3000: e = 2000: f = 9500
g = 2800
Printer.FontSize = 18
Printer.CurrentX = A
Printer.CurrentY = b
Printer.Print " 印数通知单 "
Printer.FontSize = 13
Printer.CurrentX = e + 800
Printer.CurrentY = b + 550
Printer.Print Label1.Caption & " " & Label2.Caption & " " & Label3.Caption & " " & Label4.Caption
b = b + 300 + 600
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "总 印 数"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label6.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "自办发行"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label8.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "自办零售"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label10.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "邮局预订"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label12.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "邮局零售"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label14.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.Line (e, b)-(e, b + 550)
Printer.CurrentX = e + 700
Printer.CurrentY = b + 130
Printer.Print "刊社自用"
Printer.Line (e + g, b)-(e + g, b + 550)
Printer.CurrentX = e + g + 2900
Printer.CurrentY = b + 130
Printer.Print Label16.Caption
Printer.Line (f, b)-(f, b + 550)
b = b + 550
Printer.Line (e, b)-(f, b)
Printer.EndDoc
End Sub
Private Sub Command3_Click()
End
End Sub

[yangfengcl]

如果要可以用戶選擇打印機呢，而且可以進行一些設置的那種。我用了打印的公用對話框，但是有些設置起不到作用，不知道為什麼。

[yangfengcl]

我現在用打印對話框，如果設置的打印機為　Acrobat PDFWriter，打印的質量為high Quality，那麼要怎樣才能起到作用。
因為我要印的是圖片，希望印成"*.pdf"的檔案時，放大能看得比較清晰，所以要求打印質量好。
各位一定要幫幫我，要多少分都可以。