エクセルでマクロを使って印刷を実行する

質問

ｗｉｎＸＰエクセル２００３です。知り合いから頂いた書類の中に印刷範囲がＡ１からＧ３０までで、そのとなりのあいているところにテキストボックスが３つあって、１枚印刷・２枚印刷・３枚印刷とあります。そこにマウスを持っていくと、クリックできるようになり。きちんと印刷が出来ます。これってどうやって作成するのですか？他のものにも使ってみたいので作成方法を教えて下さい。

回答No.4

imogasi · ベストアンサー

＃３です。
もう少しVBAレベルでなく、マクロレベルのやり方を考えて見ました。
（準備）
どこか目立たない（印刷範囲外に）ここではF51:F53に
１枚
２枚
３枚
といれる。
G５１もなにもいれない、ようにする。
（マクロの記録）
＃３の通り。ただ最後近くの行
ActiveWindow.SelectedSheets.PrintOut Copies:=
は
ActiveWindow.SelectedSheets.PrintOut Copies:=Range("G51")
とG51セルを指定する。
マクロプログラムの最初と最後の行は
Sub Macro1()
・・
End Sub
です。
（ドロップダウンリストの貼りつけ）
シート上で、メニューバーの余白部で右クリック。
「フォーム」をクリック。
「コンボボックス」をクリック。＋が出るからシート上で
印刷範囲外で、右下方向へマウスを引きずる。コンボボックスが現れ出る。
コンボボックス上で右クリック。
「コントロールの書式設定」をクリック。
「コントロール」タブをクリック。
「入力範囲」に「$F$51:$F$53」といれる。
「リンクするセル」に「$G$51」といれる。
（ActiveWindow.SelectedSheets.PrintOut Copies:=Range("G51")のG51と符合する）
「保護」タブをクリック。「ロック」のチェックを外す。
もう一度、コンボボックス上で右クリック。
「マクロ登録」をクリック。
Macro1をクリック。OK。
これでコンボボックスの▼をクリックすると
１枚
２枚
３枚
とでるから、望みの行をクリックすると、印刷が開始されその部数だけ印刷されます。

お礼

ありがとうございます。まったくマクロは初めて作成するので、ゆっくりとやってみようかと思います。

回答No.3

imogasi

（印刷するマクロの本体・本筋）
マクロの記録の設定をして後、
ページ設定と印刷をして、マクロの記録を取れば、どう言うコードになるか分かります。
ただどこを修正するのか、慣れて、判る必要はあります。
（イベントの理解）
（この場合はテキストボックスの）ダブルクリック等イベントと言うものを理解する必要があります。
（テキストボックスのシートへ貼り付け方）
勿論これを知る必要があります。
（テキストボックスのダブルクリックイベントプロシージャー）ダブルクリックした瞬間のテキストボックスの値は
VAL(TextBox1.Text)で取れます。印刷部数はCopiesで設定し、
Copies:=Val(TextBox1.Text)とすると印刷部数を設定できます。
それで
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Range("A1:G30").Select
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.787)
.RightMargin = Application.InchesToPoints(0.787)
.TopMargin = Application.InchesToPoints(0.984)
.BottomMargin = Application.InchesToPoints(0.984)
.HeaderMargin = Application.InchesToPoints(0.512)
.FooterMargin = Application.InchesToPoints(0.512)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 360
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=Val(TextBox1.Text)
End Sub
しかしVBAが初めての方には、エラーが出たときの、見つけ方や修正方法をOKWEBで伝えることが難しく、ある程度の勉強が先だと思います。
＞テキストボックスが３つあって、１枚印刷・２枚印刷・３枚印刷とあります
これを読むと、テキストボックスではなく、コンボボックスかリストボックスのようですが。
そう言う段階では、まずVBAの本を読み始めましょう。

回答No.2

mshr1962

テキストボックスに文字を入力して、右クリックで「マクロの登録」を選択しているだけです。

マクロの自体は、「ツール」「マクロ」「新しいマクロの記録」で
印刷時に部数を指定して印刷したものだと思いますよ。
（もしかしたら印刷範囲の指定もあるかもしれませんが．．．）

回答No.1

matrix4

マクロ記録で、一枚印刷で、記録しボタンで指定する。

2枚印刷でも同様記録する。

操作を記録すると、できるのでは・・

ツール、マクロ、新しいマクロの記録、開始、操作、
終了　で簡単なものならできます。