ベストアンサー

Excel VBA 印刷設定

2008/07/24 17:12

印刷ページ設定で ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=2, Collate :=True の式で、何ページまで印刷するかを、A1セルに入力して決定したいのですが、数式の書き方がわかりません。 A1に2と入力すれば、To:=2と認識するやり方を教えてください。宜しくお願いします。

noname#63560

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

n-jun
ベストアンサー率33% (959/2873)

2008/07/24 17:41 回答No.1

>A1に2と入力すれば、To:=2と認識するやり方を教えてください。 To:=Range("A1").Value　って事ですか？

質問者

お礼 2008/07/24 17:49

Range("A1").Value　でよかったんですね。できました。終業できます。ありがとうございました。

関連するQ&A

エクセルVBA実行後にファイルを自動で閉じるVBA

Sub 印刷() ' ' Macro1 Macro ' マクロ記録日 : 201X/X/X ユーザー名 : AAAA ' ' If MsgBox("実行する場合はＯＫ、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。(日付確認後、印刷のこと。)", vbOKCancel) = vbCancel Then End End If 'A印刷 ChDir "L:\フォルダB\X\新規" Workbooks.Open Filename:="L:\フォルダB\X\新規\記録表\工程分析.xls" Sheets("毎日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("月曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("火曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("水曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("木曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("金曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("土曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("日曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveWorkbook.Save ActiveWindow.Close あるエクセルファイルのボタンに上記のVBAが記入されています。そのボタンを押すと「工程分析.xls」ファイルを呼び出し各シートを自動印刷して保存して閉じるVBAです。質問ですがボタンの配置されたあるエクセルファイルの上記VBAの処理を全て完了した後に上書き保存を自動で実行し、自動であるエクセルファイルを閉じるVBAはどの様に追加すれば良いでしょうか？
excel vba 印刷部数設定

excel 2002を使用しています。マクロで印刷および印刷プレビューせずに、印刷部数を設定する方法を探しています。 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True 　ではプレビューしてしまいます。 ActiveWindow.SelectedSheets.PrintOut Copies:=1 　では印刷してしまいます。印刷およびプレビューしない方法はないものなのでしょうか。よろしくお願いします。
Excel VBAで自動印刷プログラムの作り方を教えて下さい。

あるファイルにある全てのグラフを印刷するマクロを作りたいのですが、どのようにすれば良いのでしょうか？ Sub Macro2() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub に何を付け足せば良いのでしょうか？何卒よろしくお願い致します。
Microsoft Visual Basicについて質問します。

シート名「委託内訳」でAN70がスペースの時に1ページのみ印刷し，スペースでない時に1～2ページを印刷したい時，下記のマクロでは2ページ目が印刷出来ません。印刷できる方法は何かありますか？よろしくお願いします。 Sheets("委託内訳").Select Range("AN70").Select ActiveCell = ATAI If ATAI = "" Then ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Else ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _ :=True End If
指定する曜日の時に特定のエクセルファイルを印刷

Sub 印刷() ' ' Macro1 Macro ' マクロ記録日 : 201X/X/X ユーザー名 : AAAA ' ' If MsgBox("実行する場合はＯＫ、間違ってこのボタンをクリックした場合はキャンセルをクリックしてください。(日付確認後、印刷のこと。)", vbOKCancel) = vbCancel Then End End If 'A印刷 ChDir "L:\フォルダB\X\新規" Workbooks.Open Filename:="L:\フォルダB\X\新規\記録表\工程分析.xls" Sheets("毎日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("月曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("火曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("水曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("木曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("金曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("土曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("日曜日印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 　ActiveWorkbook.Save ActiveWindow.Close あるエクセルファイルのボタンに上記のVBAが記入されています。そのボタンを押すと「工程分析.xls」ファイルの各シートを自動印刷して保存するVBAです。ボタンが設置されているシートのK１には「TODAY()」の式が入っています。これは当日の日付を自動で表記する様になっています。質問ですがボタンを押すと毎日印刷シート＋K1に記入されている日付の曜日のシートのみを印刷するVBAはどの様にすれば良いでしょうか？例えば今日（２０１６年９月１０日）で言うと土曜日なのでボタンを押すと工程分析.xlsファイルの毎日印刷シート＋土曜日印刷のみ出力されると言う事です。明日（２０１６年９月１１日）は日曜日なのでボタンを押すと工程分析.xlsファイルの毎日印刷シート＋日曜日印刷シートのみが出力される形です。よろしくお願いします。
エクセル　VBA 印刷設定

エクセル　VBAを使用してリストの入力を行い、全て入力後印刷を行うのではなく入力途中で設定した列数（１ページ分６０列）のデーターが入力されたら入力時に印刷を実行したいのですが前回印刷したページを印刷しない方法がわかりません。 Private Sub CommandButton1_Click() Hantei = 60 With Worksheets("発注残明細入力画面") For Hantei = Hantei To 1380 If .Cells(Hantei + 60, 1) = "" Then If .Cells(Hantei, 1) <> "" Then ActiveWindow.SelectedSheets.PrintOut _ From:=(Hantei / 60), To:=(Hantei / 60), Copies:=1, Collate:=True End If End If Hantei = Hantei + 59 Next Hantei 　　以下にリストシートに書き込むコードです　　End Sub その他、ぜんぜん違う方法で設定できますでしょうか？
エクセル　VBA

印刷ページを指定して印刷したいのですが以下の文章だと何処が間違いなのでしょうか。 Windows("あああ.xls").Activate Sheets("かかか").Select Dim c As Integer c = Range("A1").Value Sheets("さささ").Select ActiveWindow.SelectedSheets.PrintOut From:=1, To:=c, Copies:=1, Collate _ 仕事で詰まってしまいました。自分のPC(エクセル2000）だと動くのですが、他のPCへメールで飛ばしたら最後の文章でエラーが出るそうなんですが。
VBAでA3サイズに印刷したい

Sub Macro4() ' ' Macro4 Macro ' マクロ記録日 : 2007/5/23 ユーザー名 : Administrator ' ' Sheets("印刷").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub マクロの自動作成でこのように作りましたこれをA4からA3に拡大印刷したいのですが、どのようにしたら良いのでしょうか教えてください、よろしくお願いします。
マクロ　連続印刷

マクロ初心者です。ピボットテーブルでマクロを使って連続印刷をしようと思いました。一応やってみて連続で印刷は出来たのですが番号がないときエラーになってしまします。たとえば"562"という番号がないときエラーになって止まってしまいます。番号がないときは飛ばして印刷するにはどのようにしたらよいでしょうか？よろしくお願いします。 Sub 連続印刷() ' ' 連続印刷 Macro ' ' ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").ClearAllFilters ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").CurrentPage = _ "562" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").ClearAllFilters ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").CurrentPage = _ "947" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").ClearAllFilters ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").CurrentPage = _ "950" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").ClearAllFilters ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("コンポコード").CurrentPage = _ "952" End Sub
エクセルマクロで印刷実行時に「黒」の設定・・・

どなたか教えてください。マクロで印刷の実行をしています。シート上にはカラー文字が含まれていますが「常に黒」の単色で印刷させたいのですが、方法はないでしょうか？現状はプリンターのプロパティーで（カラー／黒）の選択を黒にして手動で印刷しています。EPSON PX-V500使っています。よろしくお願いします（ponta_024） ---------------------------------------------------------- ActiveSheet.PageSetup.PrintArea = "$B$3:$I$31" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True このような記述になっております。
エクセル2007　印刷マクロ

A1からE25までを印刷したいのですが，現在このようにしています。 ActiveSheet.PageSetup.PrintArea = "$A$1:$E$12" ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveSheet.PageSetup.PrintArea = "$A$13:$E$25" ActiveWindow.SelectedSheets.PrintOut Copies:=1 これを，ActiveSheet.PageSetup.PrintArea = "$A$1:$E$25" にすると，1枚目と2枚目の区切りが自分の思うようになりません。改ページプレビューを使って，ページ区切りを設定するのではなく，マクロで何とかしたいと考えています。 1枚目はA1:E12，2枚目はA13:E25に固定する方法を教えて下さい。
エクセル　マクロ　印刷指定

マクロが解りません。色々調べてマクロの記録を使って、下記のマクロを作りました。１枚目の印刷を２枚目、３枚目印刷として書き足してみました。しかしエラーが出て２番目のシートからの印刷ができません。 Sub 連絡票印刷() ' ' Macro1 Macro ' ' Keyboard Shortcut: Ctrl+p ' Sheets("連絡票").Select ActiveWindow.SelectedSheets.PrintOut From:=Sheets("連絡票").Range("p1").Value, To:=Sheets("連絡票").Range("q1").Value, Collate:=True, IgnorePrintAreas:=False Sheets("予定表").Select ActiveWindow.SelectedSheets.PrintOut From:=Sheets("予定表").Range("y1").Value, To:=Sheets("予定表").Range("z2").Value, Collate:=True, IgnorePrintAreas:=False Sheets("配車表").Select ActiveWindow.SelectedSheets.PrintOut From:=Sheets("配車表").Range("s1").Value, To:=Sheets("配車表").Range("t2").Value, Collate:=True, IgnorePrintAreas:=False Dim str As String str = Worksheets("連絡票").Range("r1") Worksheets(str).Select End Sub いろいろ解らないなりに書き換えをしてみましたが、やっぱり２番目のシートから印刷ができません。教えていただけませんでしょうか。
エクセル　ＶＢＡ　シート毎に同じ動作をしたい・・・

エクセルＶＢＡでシート毎に同じ動作をしたいのです。例えばＡ・Ｂ・Ｃ・Ｄ・Ｅとシートがあるのですが、Ａ以外のものを全部印刷したいのです。今までは Worksheets("Ｂ").Select Range("A1:AG44").Select Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True Worksheets("Ｃ").Select Range("A1:AG44").Select Selection.PrintOut From:=1, To:=1, Copies:=1, Collate:=True と　これを繰り返していたのです。これをやると文章も長くなりますし、シート名が変わったときには、ＶＢＡもすべて書き直しと言う状況になってしまいます。何か打開策はありますでしょうか？よろしくお願いいたします。
InputBoxでNo.を指定して印刷したい

以前に、『EXCELでNo.を変えて印刷したい』というタイトルで VBAの記述をいただいて解決したのですが引き続き利用することになりできればVBAの画面からではなくEXCEL上でNo.を指定して印刷をしたいのですが、どうすればいいでしょうか？ im i As Integer For i = 1 To 500　←この部分をInboxで入力できるようにしたい！ Range("A1").Cells = "No." & Format(i, "0000") ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True DoEvents Next i
エクセル２００７　メッセージボックスについて教えて下さい

セルＡ１に"1"が入れば"b10～m60"を印刷（１ページ分）、同様に、"2"が入れば"b61～m110"（2ページ分）、"3"が入れば"b111～m160"（2ページ分）を印刷するマクロボタンがあります。現在、印刷を実行する前にメッセージボックスで「印刷します」→「OK」「キャンセル」の確認をしていますがこのメッセージに、セルＡ１に入れた数値で確認したいのですができるでしょうか？？例）セルＡ１="1"→MsgBox「１ページ印刷します」　　セルＡ１="2"→MsgBox「２ページ印刷します」分かりづらい説明で申し訳ありません。よろしくお願いします。 ↓現在の記述↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ Sub test() If MsgBox("印刷します", vbOKCancel) = vbCancel Then Exit Sub End If Select Case Range("a1").Value 　 Case "1" ActiveSheet.PageSetup.PrintArea = "b10:m60" ActiveWindow.SelectedSheets.PrintOut Copies:=1 　Case "2" ActiveSheet.PageSetup.PrintArea = "b61:m110" ActiveWindow.SelectedSheets.PrintOut Copies:=1 　 Case "3" ActiveSheet.PageSetup.PrintArea = "b111:m160" ActiveWindow.SelectedSheets.PrintOut Copies:=1 　End Select End Sub
VBAに範囲を指定して印刷

特定のセルに数字を入力することでＶＬＯＯＫＵＰで印刷ページを検索して指定できるシートを作成しています。下記のようなＶＢＡを作成しました。印刷開始ページと印刷終了ページを指定する場合、セルの指定はどのようにすれば、よいのでしょうか？開始ページと終了ページが同じセルの為、開始ページ＝Rnage("セル") 終了ページ＝Rnage("セル") としてしまいますと、エラーが出てしまいます。 Sub 印刷() Dim S As Long Dim B As Long S = Application.InputBox("印刷開始ページを入力", Type:=1) If 開始ページ = 0 Then Exit Sub B = Application.InputBox("印刷終了ページを入力", Type:=1) If 終了ページ = 0 Then Exit Sub ActiveSheet.PageSetup.Order = xlOverThenDown ActiveWindow.SelectedSheets.PrintOut _ From:=S, To:=B, Collate:=True End Sub 宜しくお願い致します。
No.を指定して印刷したい

以前に、『EXCELでNo.を変えて印刷したい』というタイトルで質問をしてVBAの記述を教えてもらって解決したのですが、引き続き利用することになりできればVBAの画面からではなくEXCEL上でNo.を指定して印刷をしたいのですが、どうすればいいでしょうか？ im i As Integer For i = 1 To 500　←この部分を印刷指定ボタンを押せば番号を入力できるようにしたい！（例：管理No.0100～0120と入力したら管理No.が0100～0120の20枚が印刷される） Range("A1").Cells = "No." & Format(i, "0000") ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True DoEvents Next i
エクセルマクロ

お世話になります。下記の記述でどこがおかしいのでしょうか上手く印刷できません。 Sub Macro13() ' ' 'Dim i As Long For i = 1 To 4 Range("Ai:Ei").Select Selection.Copy Sheets("カード").Select Range("G1:K1").Select Selection.Paste Range("A1:F21").Select Application.CutCopyMode = False ActiveSheet.PageSetup.PrintArea = "$A$1:$F$21" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Next i End Sub
Excel　2003 で、次のようなVBAを入力しています。

Excel　2003 で、次のようなVBAを入力しています。手動でも同じパスワードでシートの保護設定、解除をしたいのですが、方法はありますか？ご教示よろしくお願いいたします。 ActiveSheet.Unprotect Password ="pass" 'シート保護解除 Selection.AutoFilter Field:=7, Criteria1:="<>" '項目「得意先名」が、「空白以外」を抽出 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '印刷 Selection.AutoFilter Field:=7 '印刷範囲の解除 ActiveSheet.Protect Password="pass"
エクセル　マクロで教えてください

下記のマクロがうまく働きませんＳＵＢ印刷01は単独ではいくのですが、繰返しをするとプレビューの行で止まります。SHEETオブジェクトがおかしいというのですが私には分かりません宜しくお願いします Sub 印刷01() With ActiveSheet.PageSetup .PrintQuality = 600 .CenterHorizontally = True .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 47 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End Sub Sub 印刷繰返し() Dim WS As Object For Each WS In Sheets WS.Activate Call 印刷01 Next End Sub

Excel VBA 印刷設定

質問者が選んだベストアンサー

お礼 2008/07/24 17:49

関連するQ&A

エクセルVBA実行後にファイルを自動で閉じるVBA

excel vba 印刷部数設定

Excel VBAで自動印刷プログラムの作り方を教えて下さい。

Microsoft Visual Basicについて質問します。

指定する曜日の時に特定のエクセルファイルを印刷

エクセル　VBA 印刷設定

エクセル　VBA

VBAでA3サイズに印刷したい

マクロ　連続印刷

エクセルマクロで印刷実行時に「黒」の設定・・・

エクセル2007　印刷マクロ

エクセル　マクロ　印刷指定

エクセル　ＶＢＡ　シート毎に同じ動作をしたい・・・

InputBoxでNo.を指定して印刷したい

エクセル２００７　メッセージボックスについて教えて下さい

VBAに範囲を指定して印刷

No.を指定して印刷したい

エクセルマクロ

Excel　2003 で、次のようなVBAを入力しています。

エクセル　マクロで教えてください

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Excel VBA 印刷設定

質問者が選んだベストアンサー

お礼 2008/07/24 17:49

関連するQ&A

エクセルVBA実行後にファイルを自動で閉じるVBA

excel vba 印刷部数設定

Excel VBAで自動印刷プログラムの作り方を教えて下さい。

Microsoft Visual Basicについて質問します。

指定する曜日の時に特定のエクセルファイルを印刷

エクセル VBA 印刷設定

エクセル VBA

VBAでA3サイズに印刷したい

マクロ 連続印刷

エクセルマクロで印刷実行時に「黒」の設定・・・

エクセル2007 印刷マクロ

エクセル マクロ 印刷指定

エクセル ＶＢＡ シート毎に同じ動作をしたい・・・

InputBoxでNo.を指定して印刷したい

エクセル２００７ メッセージボックスについて教えて下さい

VBAに範囲を指定して印刷

No.を指定して印刷したい

エクセルマクロ

Excel 2003 で、次のようなVBAを入力しています。

エクセル マクロで教えてください

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　VBA 印刷設定

エクセル　VBA

マクロ　連続印刷

エクセル2007　印刷マクロ

エクセル　マクロ　印刷指定

エクセル　ＶＢＡ　シート毎に同じ動作をしたい・・・

エクセル２００７　メッセージボックスについて教えて下さい

Excel　2003 で、次のようなVBAを入力しています。

エクセル　マクロで教えてください

カテゴリ
一覧

専門家に質問してみよう
専門家登録