- 締切済み
Excel VBAで印刷ジョブを一つにしたい
Excel VBAを使用して、シートAの元データの表の一行目から、 決められたセルに5レコードずつ読み込んで表示させる AccessのレポートようなシートBを作りました。 シートAには約500レコードあり、 シートBのページ数は約100ページ分になります。 このシートBの100ページを一度に印刷したく マクロを組み、ページを変えながらPrintOutメソッドで 印刷をしてみましたが、 プリンタのジョブが多くなりすぎて困っています。 Excelのみで、別のブックを使わずに解決する方法を探しています。 何か良い方法はないでしょうか。 よろしくお願いします。
- Uyrjyyf6sd
- お礼率100% (37/37)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- keithin
- ベストアンサー率66% (5278/7940)
＞印刷ジョブを一つにしたい ： ＞プリンタのジョブが多くなりすぎて困っています。 というのがヤリタイ事なら，「一度に印刷する」しか手はありません。 マクロを使っているならやりようは幾らでもあります。 ●シートＢの続きにシートＢの複製を必要数（１００シート）束ねて（＝作業グループにして）一気に印刷する ●１枚のシートＢの中で「決められたセル」を行コピーで下に連ねて作成し，一気に印刷する そういうやり口が気にくわないなら，次のような手もあるかもしれません。 for i = 1 to 100 worksheets("Sheet2").printout printtofile:=true, prtofilename:="c:\test\pr" & i next i のような段取りでプリントファイルを書き出しておき， http://support.microsoft.com/kb/407544/ja http://officetanaka.net/excel/vba/tips/tips27.htm にあるような方法で，ＶＢＡからＭＳ－ＤＯＳコマンドを使ってアナタのプリンタにまとめて送りつけます。 ＃Shell関数では多分上手く行かないので注意してください http://support.microsoft.com/kb/149570/ja
関連するQ&A
- ＥＸＣＥＬ ＶＢＡ シートの連続印刷に白黒印刷
ＥＸＣＥＬ ＶＢＡの初心者です。回答、指導をよろしくお願いします。ＥＸＣＥＬ2003を使用しています。シートＡとＢを連続で印刷するＶＢＡに白黒で印刷するＶＢＡを加えたいのですが記述方法がわかりませんのでご指導お願いします。シートの連続印刷ＶＢＡは下記ですが、これでよろしいでしょうか。どなたかご指導よろしくお願いします。 Sub purint複数シート印刷() Sheets(Array("A", "B")).PrintOut End Sub
- ベストアンサー
- その他MS Office製品
- エクセル２０００ＶＢＡからの印刷で実行時エラー１００４発生
エクセル２０００のＶＢＡマクロ中で印刷をしよう として、実行時エラー１００４が発生し、原因が分からず 苦慮しています。 （前略） Sheets("ラベル印刷").Select ．．． ActiveSheet.PageSetup.PrintArea = "$A$1:$B$2" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True を実行すると、WorksheetクラスのPrintOutメソッドが 失敗しましたというエラーがでます。 色々試して、 Worksheets("ラベル印刷").Activate ActiveSheet.PrintOut とやってみたり、シートの名称をデフォルトのSheet1に 戻したりしても同様でした。 同じモジュール中で、 Sub printtest() Worksheets("ラベル印刷").PrintOut End Sub というのを記述して、ＶＢＡエディター中で実行ボタン （▼）で実行したり、ワークシートのツール／マクロの 実行から実行すると問題なく印刷できます。 ところが、マクロを改造してこのサブルーチンをコールする ようにすると、上と同様の現象が出ます。 別のＰＣで試みても再現されました。 他の部分は完成したつもりなのに、印刷が出来ず困っております。 アドバイスお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel VBAのPrintOutメソッドにつきまして
毎々お世話になります。 ExcelのVBAにてシート編集→印刷を実施しておりますが、印刷が行えない事象が発生しております。（１００％ではありません。） ----------------------------------------------- ExlObj.ActiveSheet.PrintOut '印刷開始 ExlObj.DisplayAlerts = False ExlObj.Quit 'Excelの終了 Set ExlObj = Nothing ------------------------------ シート内のレコードが多く大量の枚数を印刷する場合、PrintOutメソッドから次の処理（Quit→オブジェクト破棄）を行ってますが、PrintOutから次の処理に移った後にExcelオブジェクトが残ることはないでしょうか？ また、ActiveSheetのCloseは必ずQuit前に実施する必要はありますでしょうか？
- 締切済み
- オフィス系ソフト
- エクセルＶＢＡ初心者です
参考書籍を教えてください 質問１ 会社でエクセルマクロを使う機会が増えました。大抵のことはマクロの記録で対応してますが、細かいファイル操作が出来ません。VBAを勉強する必要があると思ってます。何か良い参考書はありませんか？ 質問２ ブックＡでマクロＡを作りました。マクロＡの中で、ブックＢのマクロＢを実行させてます。マクロＢは、計算結果としてブックＢ上に新シートを作成し、終了します。その後、マクロＡに戻りブックＢの新シート上のセル２個を選択しコピーし、ブックＡにてペーストさせようとしてます。 マクロＡはブックＡ上で「マクロの記録」で作成しました。 実行させると、マクロＢの終了時点でストップするようです。 何がマズイのでしょうか？
- ベストアンサー
- Visual Basic
- Excel2007のVBAでPreviewすると
初めまして。 Excel2007のVBAで困っていることがあり解決方法を探しています。 もともとExcel97で稼働していたマクロ＋VBA付きのシートをExcel2007で稼働させようとしています。 マクロ・VBAで作成されたシート(sheet2)をフォームに配置した印刷ボタンをユーザーに押してもらうことでプレビューを表示します。 印刷ボタンを押したときのプレビューのコード Worksheets("sheet2").PrintOut Copies:=1, Preview:=True でプレビュー画面を表示したところ、印刷ボタンや印刷設定ボタン等の上部にあるボタンが薄いグレーの配色で押せなくなりました。 調べた結果、ScreenUpdatingがfalseだと同じ状態になるとわかったので Application.ScreenUpdating = True Worksheets("sheet2").PrintOut Copies:=1, Preview:=True と書き換えましたが、不具合は解消されませんでした。 またブックを閉じずに、マクロを再起動させて同様の動作をおこなうと 何故かちゃんとボタンが押せるプレビューが表示します。 その状態のブックを保存して改めて開くと同じようにプレビューのボタンが押せなくなっています。 同じような現象で解決された方いらしたら解決方法を教えて頂ければありがたいです。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
- エクセル印刷のマクロでで”部単位で印刷”をしないようにできるでしょうか？
エクセルの印刷で Selection.PrintOut Copies: = Range("D5").Value のマクロで印刷していますが、 部単位で印刷（o）にチェックが入っているので 一枚ずつのジョブになってしまいます。 マクロでページごとに印刷することは できるのでしょうか？
- ベストアンサー
- その他MS Office製品
- VBA 印刷 画面
エクセルVBAについて。 ワークシートの印刷をVBAで行っています。 worksheets("○○○").printout ワークシートを複数印刷する際に、逐一 そのワークシートに画面遷移しないようにするには、どうすればよいでしょうか？ よろしくお願いします。 Excel2010以上
- ベストアンサー
- Excel（エクセル）
- 印刷枚数を指定して印刷（印刷しないシートを含む場合）
マクロ（ＶＢＡ）の超超初心者です。 エクセルのブックの全シート(13sheet)の印刷を1つのシートで管理するマクロを作りたいと思っています。 下記のマクロでチェックしたシートのみ印刷することは可能になりました。 Sub チェックしたシートの印刷() Dim rng, shChk, PrtSh For Each rng In Range("IDX") If rng.Offset(0, -1) = 1 Then shChk = shChk & rng.Value & "," End If Next shChk = Left(shChk, Len(shChk) - 1) PrtSh = Split(shChk, ",") Sheets(PrtSh).Select ActiveWindow.SelectedSheets.PrintOut End Sub そこにさらに印刷枚数を指定して印刷したいのですが、下記のマクロだと、０枚（印刷しないときの）の設定ができません、、、 ０枚でもマクロを実行できるよにするにはどうしたらよいのでしょうか、、、 さらに、このマクロを簡単に書きたいのです。（ほぼ同じことの繰り返しなので、、、、） Sheets("sheet1").PrintOut Copies:=Range("A1").Value Sheets("sheet2").PrintOut Copies:=Range("A2").Value ・ ・ ・ Sheets("Sheet13").PrintOut Copies:=Range("A13").Value End Sub 超超初心者があつかましい質問ですが、ご教授のほうよろしくおねがいいたします。
- ベストアンサー
- Visual Basic
- VBAで印刷するとエラーになってしまいます。
VBAで印刷するとエラーになってしまいます。 EXCELシートをボタンの押下で印刷するマクロを組んだのですが、 実行すると必ずエラーになってEXCEL自体が落ちてしまいます。 添付画面を参照して下さい。 普通にEXCELの印刷（[ファイル]->[印刷]）から印刷すると問題なく印刷できます。 何か足りないものがあるのでしょうか？ どなたか教えてください 以下ソース ---- Private Sub btn_Print_Click() 'ActiveSheet.PageSetup.CenterHeader = "&B&12印刷" ActiveWorkbook.Worksheets(1).PrintOut End Sub ----
- ベストアンサー
- オフィス系ソフト
- Excel Vba でデータの範囲を知るには？
Excelを使用していますが、マクロ（VBA）で、シートのデータの範囲を知るにはどうすればよいのでしょうか。 印刷プレビューを行うと、自動的にページ数が求めらていますが、これは、シートのデータの範囲（列及び行の最大値）を判別しているからできるのだと思います。 これを、ＶＢＡで行、及び列のＭＡＸ値を取得したいのですが、そのメソッド（プロパティ）を知りたいのです。 どなたかご教授ください。
- ベストアンサー
- オフィス系ソフト
お礼
ご回答ありがとうございます。 ご説明が足らず申し訳ありません。 Excelのみでの解決法を探していまして、外部ファイルなども使用することは避けたいところでした。 しかしながら、 ＞●シートＢの続きにシートＢの複製を必要数（１００シート）束ねて（＝作業グループにして）一気に印刷する ＞●１枚のシートＢの中で「決められたセル」を行コピーで下に連ねて作成し，一気に印刷する この2点は大変参考になります。試してみたいと思います。