投稿日 | : 2005/12/22(Thu) 01:57 |
投稿者 | : vb基礎マン |
Eメール | : |
URL | : |
タイトル | : 印刷について |
Private Sub List1_DblClick()
Dim objPrinter As Printer
strMyPrinter = List1.List(List1.ListIndex)
For Each objPrinter In Printers
If objPrinter.DeviceName = strMyPrinter Then
Set Printer = objPrinter
Form9.PrintForm
Printer.EndDoc
End If
Next
End Sub
と指定するプリンターで印刷のコード花ちゃんさんの
サイトで参考したのですが、これにプラスで。枚数とサイズをtextboxで
入力して実行したのですが、Printer.PaperSize = vbPRPS○○
やPrinter.Copies = ○をどこの位置にいれればいいのですか?