- ベストアンサー
エクセル・・・・印字部数の任意指定について
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。maruru01です。 こんな感じ Sub 枚数指定印刷() Dim PrtCnt PrtCnt = Worksheets("シート1").Range("A1").Value If IsNumeric(PrtCnt) Then If CLng(PrtCnt) >= 1 Then Worksheets("シート2").PrintOut Copies:=CLng(PrtCnt) Else MsgBox "枚数に1以上の整数を指定して下さい。" End If Else MsgBox "枚数に1以上の整数を指定して下さい。" End If End Sub
その他の回答 (1)
- stouma
- ベストアンサー率35% (142/399)
マクロという表現ではなくVBAになってしまいますが 下記サイトのワークシートの印刷をご参考になられては いかがでしょうか？ http://hp.vector.co.jp/authors/VA006682/vbaref/vbaref8.htm
お礼
どうも 有難う御座います。こんなサイトもあったのですね 参考にさせて頂きます。
関連するQ&A
- エクセルの印刷について
ＭＳ ｏｆｆｉｃｅ９７を使用しています。 エクセルの印刷について 教えて下さい。 「シート２」表を作成しています。 「シート１」の「Ａ１」の入力されている数字が １ であれば 「シート２」の表を１部印刷 「シート１」の「Ａ１」の入力されている数字が ２ であれば 「シート２」の表を２部印刷 と云うように、指定された通りに 印字出来る マクロなどは 組めないのでしょうか？？？？ 出来るのであれば 教えて下さい。
- 締切済み
- オフィス系ソフト
- Excel 差し込み印刷 部数指定について
エクセル 印刷用meiboシート A列 に 印刷の可否を分類する数字 B列 に 名前 を 入れています。 余暇生活シート の 特定のセルに 印刷用meiboシート B列 名前を 読み込み 差し込み 印刷はできるのですが、部数を 指定したい場合 どうしたらよいのでしょうか？ 出来れば、 以下の内容のことが出来ると大変助かります。 (1)同じ部数を印刷する。 (2)名前毎に 印刷部数を指定する ※(1)が基本出来るとありがたいのですが、(2)が出来ると より助かります。 (2)の場合、印刷用meiboシート B列 に 名前 を 入れていますのでC列に部数を入れておくと、それを読み取り 名前毎に印刷部数が変えられるようにしたいのです。 よろしくお願いします。 差し込み印刷には、以下のような形で対応しています。 Sub Test1() Application.ScreenUpdating = False ' 画面更新の抑止 Dim r As Range If MsgBox("データを印刷しますか？", _ vbQuestion + vbYesNo, "連続印刷") <> vbYes Then Exit Sub With Worksheets("印刷用meibo") For Each r In .Range("A2", .Range("A" & .Rows.Count).End(xlUp)) If r.Value = 1 Then '差込先のセル = 差込元のセル のかたちで指定（※） Worksheets("余暇生活").Range("C1").Value = r.Offset(0, 1).Value '印刷する 'Worksheets("余暇生活").PrintPreview Worksheets("余暇生活").PrintOut End If Next r End With Sheets("余暇生活").Select Application.ScreenUpdating = True ' 画面更新の再開 End Sub
- 締切済み
- Excel（エクセル）
- Excelで印刷設定をした後に部数の連番を印刷
おそらくＶＢＡを使うことになると思いますが、やりたいことは、 シートを１ページ印刷します。 それを例えば10部印刷します。 合計１０枚出力します。 そのときに用紙サイズや用紙種類を指定して、 １０部の連番を一枚ずつのページに印刷されるようにしたいです。 例えば、 １枚目：1/10 ２枚目：2/10 ・・・ 10枚目：10/10 ちなみに部数印刷の場合なので ヘッター/フッターでは出来なそうです。 素人ながらに検索しましたら、 部数を印刷するＶＢＡは見つかりました。 http://okwave.jp/qa/q2909328.html このマクロではそのまま印刷が始まってしまいますが、 印刷が始まる前に、用紙の設定等をしたいのです。 よろしくお願い致します！
- 締切済み
- オフィス系ソフト
- Excel2007での複数部数印刷について
こんにちは。早速ですがExcel2007での印刷について教えて下さい。 Sheet1から3までを3部印刷する場合、 通常でしたらSheet1から3までを指定し部数の欄に「3」と入力すればいいのは知っているのですが、 その場合、Sheet1から3までを1部出力した後、またSheet1から3までが出力されます。 教えて頂きたいのは、 Sheet1が3部出力された後に、次のSheetが3部という感じで出力される方法です。 一応「印刷」の「部単位で印刷」の「チェック」を外せば出来そうだったので、トライしたのですが結果は同じでした。 この方法間違っているのでしょうか？ Sheetを指定して3部出力という行為を何度か繰り返すしか方法はないのでしょうか？ 「部単位で印刷」を調べると 「印刷時に作成したとおりの文書の順序で印刷ジョブが処理されるようにするには、 このチェック ボックスをオンにします。 このチェック ボックスは、複数の部数を印刷する場合に利用可能になります。」とありました。 「チェック」を外して使用する事はないのでしょうか？ もしあればそれは、どういった場合なのでしょうか？ 欲張りですみませんが、 疑問があると気になりますので どなたか正しい印刷方法ならびに「部単位で印刷」について ご存じの方、教えて頂きたく、宜しくお願いします。
- 締切済み
- Windows XP
- 印刷部数が多すぎて困っています。
印刷部数の設定で困っています。 文書や図面を印刷させる場合に印刷のダイアログボックスで印刷部数を変更すると、プリンタドライバのダイアログボックスでの印刷部数も同じ数字になり、2部に設定すると4部、5部に設定すると25部など、設定数の2乗の部数が印刷されてしまいます。 ネットワーク上の別のパソコンにUSBで接続されているCanonとNECの共有プリンタ2台と、直接USBで接続されているMUTOHのプロッタともに同じ症状ですので、Windowsの問題ではないかと考えています。 プリンタドライバはすべて最新のものにしています。 OSはWindows Vista buisinessで、SP1は未導入です。 解決のヒントだけでもおわかりになりませんでしょうか？
- 締切済み
- Windows Vista
- エクセルで印刷部数をセルに表示させたい
毎年1月から12月の機械の点検表を印刷しています。 現在、シートを12枚作って、すべてのシートの年が入力されたセルを書き換えて印刷しています。 面倒なので、シートを1枚にして12部印刷するようにすれば年を変えるのが1枚で済むのですが、すべて同じ月になってしまいます。 そこで、印刷部数がセルに取得できれば1部めは1月（１を取得）12部めは12月という感じしたいのですが可能でしょうか? または、その他の方法で１シートで月だけが変えられる方法を教えてください。
- ベストアンサー
- その他MS Office製品
- エクセルでのフィルタについて
エクセルのことで、教えてください。 1つのブックに、たくさんのシートがあります。 1枚は、印刷用シートでA1セルの数字によって内容を変更できるようになっています。 2枚目以降は1列目に1から45までの数字、2列目以降に文章があります。 で、2枚目以降の2列目を印刷用シートに図のリンク貼り付けしておいて、印刷用シートのA1セルの数字で、2枚目以降のシートをフィルタリングすると、印刷用シートの内容が変更するようにしています。 そのフィルタリングのために、以下のようなマクロを組んでいます。 a = Range("A1").Value Sheets("Sheet2").Select Selection.AutoFilter Field:=1, Criteria1:=a Sheets("Sheet3").Select Selection.AutoFilter Field:=1, Criteria1:=a Sheets("Sheet4").Select Selection.AutoFilter Field:=1, Criteria1:=a 以下シートの枚数だけ続く。 これだとこのマクロが実行完了するまである程度の時間を要するので、もう少し時間を短縮できるような記述に出来ないかというのがお聞きしたいことです。マクロの記録で作成したものを参考にしたのでこうなっているんですが、何かうまい方法があれば教えてください。
- ベストアンサー
- その他MS Office製品
- エクセルのフッターについて。
エクセルで作成したシート（１枚）を印刷部数で５枚にして印刷するとします。この５枚印刷物に、フッターで連番を印字する事は可能なのでしょうか？その他の方法で、同じシートを複数枚印刷した時に、連番を入れる方法はあるでしょうか？ 連番は、フッターみたいに、出来るだけ用紙の端にしたいのです。
- 締切済み
- オフィス系ソフト
- Excelで表に任意データを入れたい
いつもお世話になっています Excelで悩んでいるところがあるので、ご教授をお願いします。 ExcelにシートA,シートBを用意 シートAに表を作成しまして （例) | 名前 | 備考 | |￣￣￣￣|￣￣￣￣| |￣￣￣￣|￣￣￣￣| |￣￣￣￣|￣￣￣￣| |￣￣￣￣|￣￣￣￣| この表は1ページで30行分の名前データが綺麗に収まる表です。 別シートBに百数件の名前だけのデータが入っています。 （A列に数十件、B列に数十件とデータは複数列にわたって入っています） ※今はこのデータの形式ですが、データの持ち方はある程度妥協できます シートBの任意の名前データだけ複数選択し、シートAの形を使って印刷をしたいと考えています。 この時、選択したデータ件数によってはシートAの表は複数枚に渡って印刷される必要があります。 これを実現したいのですが、どのようにすればよいでしょうか？ マクロでやるのか、はたまたマクロを使わずともできるのか・・・ 差し込み印刷のような感じでできないかと調べてはいるのですが、解決できそうな情報がみつかりません。 これを実現できる方法を分かる方がいましたら、お願いします。 マクロでという場合は、VBAの記述は初心者ですのでポイントだけでも詳しく教えて頂けると嬉しいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- マクロ エクセル 結合セルのカウント
エクセルのマクロについて教えてください。 結合されたセルに数字が入っていたらそれの数をカウントし、その数の部数の印刷する方法を教えていただけないでしょうか。 sheet1のB12:E17に結合セルが6個、M12:M17に結合セルが6個あります。 この12個の結合セルの中に数字が入っている結合セルの数の部数をsheet1の印刷枚数として印刷するようにしたいです。 よろしくお願いします。
- ベストアンサー
- Excel（エクセル）
お礼
どうも有難う御座います。使わせて頂きます。他の方が色々質問されていて、ｍａｒｕｒｕ０１さんの回答をいつも参考にさせて頂いてます。今回は、回答頂き有難う御座いました。