▼マクロ印刷設定について▲

下記のプログラムはコマンドボタンを押すと
フォームが表示され、氏名を選択すると
印刷しますかと表示されOKを押すと
印刷がかかるようになっているのですが…

このプログラムを印刷設定ができるようにしたり、
印刷枚数を指定できるようなプログラムに変えるには
どうしたら良いでしょうか…;;

アドバイスなど宜しくお願い致します…。

'↓ここから―――――――
Private Sub CommandButton1_Click()
Cells(2, 17) = 名簿.Value

yesno = MsgBox("印刷しますか？", vbYesNo + vbQuestion + vbDefaultButton1 + vbSystemModal, "印刷しますか？")
If yesno = vbYes Then
ActiveWindow.SelectedSheets.PrintOut copies:=1
End If
Unload Userform1
End Sub

Private Sub UserForm_lnitialize()
For i = 1 To 15 'lが0から7まで(2行-2から9行-2まで)

名簿.Addltem Worksheets("データ").Cells(i + 1, 1).Value '名簿という別のシート
Next
End Sub
Private Sub 名簿_Change()
End Sub

'↑ここまでです――――――

No.1 ベストアンサー 回答者： pentium100 回答日時： 2010/01/30 21:28

一見すると長いコードのように見えますが、

直接印刷指示を飛ばしているのはこの行だけです。

＞　ActiveWindow.SelectedSheets.PrintOut copies:=1


ここを「印刷設定ダイアログを表示する」マクロに書き換えることで、
全自動マクロから半自動マクロに変更することができると思います。

Application.Dialogs(xlDialogPrint).Show

に書き換えてみてください。

この回答へのお礼

早速ご回答ありがとうございます！
教えて頂いたコードで試させて頂きます(＾＾)

お礼日時：2010/01/30 22:40