投稿日 | : 2005/12/22(Thu) 22:06 |
投稿者 | : vb基礎マン |
Eメール | : |
URL | : |
タイトル | : Re^2: 印刷について |
印刷の命令を出す前に用紙サイズの設定や印刷枚数の設定をしたいのです。
form1のコマンド1でform2を開きそのform2のリストに利用なプリンター
をリストにあげてある状態にし、text1に枚数の数を入力しtext2サイズを入力
してから印刷の指令を出したいと思っています。
枚数とサイズを
Private Sub Command2_Click()
Dim objPrinter As Printer
strMyPrinter = List1.List(List1.ListIndex)
For Each objPrinter In Printers
If objPrinter.DeviceName = strMyPrinter Then
Set Printer = objPrinter
Form3.PrintForm
Printer.EndDoc
End If
Next
End Sub
のどこにコードを入れればいいのですか?