• ベストアンサー

Excel VBAで印刷時のページを取得したい

Excel VBAで特定の条件を満たしたページのみを印刷したいと思いますが、 それには現在ページや最大ページの取得が必要かと思います。 どのようにすれば取得できますでしょうか? よろしくお願いします。

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

  • ベストアンサー
  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

参考URL、「エクセル技道場」さんの「印刷」 ここの12. 印刷されるページ総数を取得 を参照 macro4を利用して Application.ExecuteExcel4Macro("get.document(50)")

参考URL:
http://www2.odn.ne.jp/excel/waza/print.html#SEC12

関連するQ&A

  • Excel2010 VBAにて印刷設定の取得

     Excel2010 VBAにてマクロを作成しております。 Excel2010のメインウィンドウの「ファイル」タブ→「印刷」の 画面におきまして、[設定]欄にて設定したページ指定(印刷開始ページ及び 印刷終了ページ)は取得できるのでしょうか?  Workbook_BeforePrintプロシージャにて取得しようと思っているのですが、 ActiveSheet.PageSetupのメンバやThisWorkbookのメンバを見たところ、 印刷の開始ページ及び終了ページの設定が見つかりませんでした。 印刷のページ指定の設定箇所をご存知の方がいらっしゃいましたら 教えて頂きたく宜しくお願い致します。

  • Excel Vba でデータの範囲を知るには?

    Excelを使用していますが、マクロ(VBA)で、シートのデータの範囲を知るにはどうすればよいのでしょうか。  印刷プレビューを行うと、自動的にページ数が求めらていますが、これは、シートのデータの範囲(列及び行の最大値)を判別しているからできるのだと思います。  これを、VBAで行、及び列のMAX値を取得したいのですが、そのメソッド(プロパティ)を知りたいのです。  どなたかご教授ください。

  • エクセル印刷時のページ

    エクセルで印刷するときに、下記の条件でページ表示をしたいのですが教えて下さい。 1.1シート内で指定したページのみを表示したい場合 2.1の条件で数シートの総合ページを表示したい場合 3.指定したブック間同士で表示したい場合。 宜しくお願い致します。

  • エクセルVBAで最終ページの確認は出来ますか?

    WIN98SEでエクセル2000を使用しています。 既に作成されたシートの最終ページ又は総枚数をVBAで取得し、そのデータを活用したいと考えています。 VBAでの取得は出来るでしょうか? 宜しくお願いします。

  • VBAでPDFをページ指定して印刷したい

    お世話になります。 ---------- <実現したいこと> Excel VBAを用いて、PDFファイルを印刷したい。 PDFファイルは、ページ指定をしたい。原則として最初のページと任意指定のページの2ページを印刷する。 できれば、1枚の用紙に2ページを印刷したいが、こちらは優先順位は低い。 <努力したこと> VBA上で、コマンドラインを使ってPDFを単純に印刷するまでは出来た。 だが、ページ指定のオプションが見つからない。もしかして存在しないのだろうか? コマンドライン以外でも構わないので、実現できる方法があれば知りたい。 <条件> 会社のWindows PCを利用している。 Adobe Acrobat PRO DCがインストールされている。 外部のソフトをインストールすることは難しい。 ---------- その他、不明な点がありましたら追記します。 よろしくお願いいたします。

  • 印刷するページを自動で増減したいのですが・・・

    エクセル2000です。 シート1で入力したデーターをシート2に抽出して印刷する際に、条件によって印刷ページを増減する方法はありませんか?   データーが、1~10件なら1ページ、11~20件なら2ページ・・・、 と言う具合なのですが、条件分岐がうまくいかなくて困っています(VBA)。

  • エクセルVBAで入力規則の有無を取得

    エクセル2010です。 VBAで特定のセル、たとえばA1セルに入力規則が設定されているかどうか取得したいのです。 セルにVBAで設定することはできるのですが、すでに設定されているかどうかを取得できずに困っています。 ご教示いただければ幸いです。

  • ExcelのVBAでHTMLのタグ数を取得するには

    VBAでHTMLソースからタグ指定で情報を取得したいのですが、そのページ内にある特定のタグ数を取得する方法で躓いています。 例えば、下記のURLの"TD"のtagNameから情報を抜き出しているのですが、他のページでは"TD"タグ数が変わってきます。ループ条件で"TD"のタグ数が必要なので、数を取得して変数として代入したいのですが、どうすれば良いでしょうか。ちなみに下のサイトの"TD"の数は71個です。 http://db.netkeiba.com/horse/ped/2010110097/

  • エクセルVBAでPDFを1枚目のみ大量に印刷したい

    エクセルVBAでPDFを大量に印刷したい PDFファイルが6000件くらいあって Aというホルダーに1.pdf,2.pdf ・・・6000.pdfといった形で保存しております エクセルのA列に必要な番号を入力し50~60件印刷します A列には必要なファイル番号のみ入れていきます 2,3,6,100,210といった形でA列に必要なデータを入れて VBAで起動させるとA1から順番にアクティブプリンターで印刷したいと おもっています。 どのようなVBAにすればいいのかわかりません。 ループで繰り返しになる感じになると思います N=N+1といった感じでA1セル.PDF 印刷 A2セル.PDF           印刷 A3セル.PDF           印刷 といった形でAに入る数字は毎回違ってきます 番号はあるけどファイルがない場合はその番号を B1列から順番に摘出するようなものを考えてます 印刷については、全部1ページのみ印刷をします。1PDFで4ページあっても先頭の1ページのみ印刷です。 どなたかお忙しいとは思いますがご教示いただけませんか よろしくお願いいたします

  • EXCEL VBA----連続ラベル用紙に印刷したい

    EXCEL VBAで一覧表から製品ラベルを作成しているのですが 一覧表から条件に合ったオーダーの項目(オーダーNo.、品名等)を 別シートのデザインを決めたセルに貼りつけています。 それを連続用紙(ラベル用紙)に印刷するのですが プリンタの余白、上下余白、ヘッダー、フッダーを全て0にしても どうしてもページの区切り目で余白があいてしまい、2ページ目以降の行がずれてしまいます。 これはEXCELの性質上どうしようもないことだと聞いたことはあるのですが やはりこれは仕方のないことなのでしょうか? 他の方法として デザインシートには始めの1オーダー分のみを貼りつけて印刷 ↓ 2つめのオーダーを貼り付けて印刷 ↓ 3つめのオーダーを貼り付けて印刷 ・ ・ ・ このようにすると、ズレは解消するかとは思うのですが これをすると、1つのオーダーを印刷するとプリンタがページ送りをしてしまうのです。 (プリンタの自動改行はOFFにしています。) これをVBAで設定することは可能でしょうか? もしEXCELでは不可能であれば、WORDならこうすればできる等 ありましたらお教え下さい。 わかりにくいかもしれませんが、よろしくお願いします。

専門家に質問してみよう