- ベストアンサー
フィルターで指定したページのみ印刷をしたいのですが
エクセルで以下の様な表を作成しております。 担当コード 営業所 客数 １ A １０ １ B ５ １ C ２１ ２ D ６ ２ E １２ ３ F １８ ３ G ９ ３ H ２５ ３ I ４ 上記表を、担当コード毎に印刷をしたいので、 (1)担当コードが変わる時に改ページを入れるマクロを設定 (2)ページ設定で項目名を行のタイトルに指定 このまま印刷すれば、担当コード１、２、３に関して３枚出力されます。 実際は、該当ページだけを印刷したいので、 (1)印刷をしたい担当コードを２に絞って印刷をした のですが、「担当コードの２のページ１枚」と「項目名のみの１、３のページ２枚」の計３枚が出力されてしまいます。 実際の表では、担当者コードが３００名分あるシートなので、フィルターで指定しても、該当ページと２９９枚の項目名のみの紙が印刷されてしまいます。 どのようにすれば、フィルターで絞った該当のページのみを印刷できるのでしょうか？
- mantel
- お礼率88% (23/26)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
普通にオートフィルターで絞り込んで印刷すると1枚しか印刷されないはずです。 >(1)担当コードが変わる時に改ページを入れるマクロを設定 この辺りが影響していると思います。 取合えず、1枚のみの印刷であれば、マクロを無効にして開いて印刷しては 既に改ページが設定されていれば、解除する。 或いは、オートフィルターで表示されている行を他のシートへ貼り付けて印刷する。 など如何でしょう。
その他の回答 (1)
- hana-hana3
- ベストアンサー率31% (4940/15541)
＞どのようにすれば、フィルターで絞った該当のページのみを印刷できるのでしょうか？ オートフィルタの場合、ページ区切り位置が自動で設定されていないと、強制的に印刷されてしまいます。 （改ページプレビューで青色の点線になっている必用があります。） 手動でやるなら[ファイル]-[印刷]で、印刷ページを指定します。
お礼
hana-hana3さん 早急な回答ありがとうございました。 マクロで組まれていた改ページが影響していたようで、全ての改ページを解除してフィルターをした所、該当ページだけの印刷に成功しました。 アドバイスありがとうございました。
関連するQ&A
- エクセル：マクロ構成を教えて頂けないでしょうか？
エクセルで以下の様な表を作成しております。 担当コード 営業所 客数 １ A １０ １ B ５ １ C ２１ ２ D ６ ２ E １２ ３ F １８ ３ G ９ ３ H ２５ ３ I ４ 上記表を、担当コード毎に印刷をしたいので、 (1)担当コードが変わる時に改ページを入れるマクロを設定 (2)ページ設定で項目名を行のタイトルに指定 このまま印刷すれば、担当コード１、２、３に関して３枚出力されます。 実際は、該当ページだけを印刷したいので、 (1)印刷をしたい担当コードを２に絞って印刷をした のですが、「担当コードの２のページ１枚」と「項目名のみの１、３のページ２枚」の計３枚が出力されてしまいます。 実際の表では、担当者コードが３００名分あるシートなので、フィルターで指定しても、該当ページと２９９枚の項目名のみの紙が印刷されてしまいます。 どのようにすれば、フィルターで絞った該当のページのみを印刷できるのでしょうか？
- 締切済み
- オフィス系ソフト
- 常に、エクセルの1ページ目だけを印刷する方法
エクセルで定型諸表を作り印刷しています。 表は1ページ目だけで、見えないところに 入力規則で使う項目をたくさん配置し 表のセル中のプルダウンで選択をしています。 それを印刷する時に、表だけしかいらないので 印刷範囲のページ指定で1ページのみを指定して 印刷しています。 しかし、急いでいる時などにこの「印刷範囲ー ページ指定」を忘れてしまい、表と必要の無い 入力規則の項目まで印刷されてしまいます。 何らかの設定で、このエクセルに関しては「1 ページ目しか印刷しない」との指定・固定を できないでしょうか。
- ベストアンサー
- Excel（エクセル）
- Excel ページ指定連続印刷
お世話になります。 Excel2003にて sheet1(出力表) Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 1行目は項目 1 ○○○○○ 1←表示指定頁数入力 2 ＊＊＊＊＊ 3 ＊＊＊＊＊ |印刷|←ボタン A2:E2以降（実際は21行)に、 sheet2(データ)に表の項目順に入力し、並べ替えをしたデータを (A2であれば…データ!B3に必要な項目があるとして…)=IF(OR($F$1=0,$F$1=""),"",IF(OFFSET(データ!B3,($F$1-1)*21,0,1,1)="","",OFFSET(データ!B3,($F$1-1)*21,0,1,1))) で、F1に必要頁を入力し反映させ、表を印刷していましたが、頁数が多くなると手間がかかるので、指定頁までを印刷するように Private Sub CommandButton1_Click() Dim msg, style, title, help, ctxt, response, mystring msg = "表を出力します。" style = vbOKCancel + vbinfomation + vbDefaultButton1 title = "Print Out" help= "demo.hlp" ctxt = 1000 response = MsgBox(msg, style, title, help, ctxt) If response = vbOK Then mystring = "ok" Worksheets("出力表").Activate Dim page As Integer Dim pageend As Integer pageend = Range("F1") For page = 1 To pageend Cells(1, 6) = page Sheet1.PrintOut Next page Else mystring = "cansel" MsgBox "cancel...bye" End If End Sub(見づらいですが行詰めました…） これは、1頁目からの印刷なので、例)3頁目から5頁目を印刷という機能も欲しいな、と思い…F3=開始頁 G3=終了頁を入力…「印刷」…ここまで考えましたがまだあまり応用が利かないため、先に進みません…。 ☆この状態でのページ指定印刷の方法 ☆もっと簡単な方法があるよ！など アドバイスをいただけたら助かります。説明不明瞭で申し訳ありません。
- ベストアンサー
- オフィス系ソフト
- オートフィルタのリストを順番に印刷できるマクロ
会社である表にオートフィルタをつけています。 そのオートフィルタのリスト項目ごとに印刷をしたいのですが、 かなり手間がかかってしまうので、マクロをくみたいと考えています。 リストの項目は毎回変わってしまうので、マクロ初心者の私にはとても難しいのです。 お分かりになる方よろしくお願いします。
- ベストアンサー
- Windows XP
- Access改ページ時の表題印刷について
以前に質問させていただいた件に関しての追加の質問です。 レポート出力時の範囲を下記の範囲入力画面で入力した内容を印刷したいと考えてます。 住所コード : [住所自] ～ [住所至] 販売店コード : [販売店自] ～ [販売店至] 担当者コード : [担当者自] ～ [担当者至] レポートは販売店コードで改ページするように設定しているため販売店コードフッターで ="住所コード：" & Forms![frm出力範囲]![住所自] & "～" & Forms![frm出力範囲]![住所至] & Chr(13) & Chr(10) & "販売店コード：" & Forms![frm出力範囲]![販売店自] & "～" & Forms![frm出力範囲]![販売店至] & Chr(13) & Chr(10) & "担当者コード：" & Forms![frm出力範囲]![担当者自] & "～" & Forms![frm出力範囲]![担当者至] と指定すればできると教えていただき解決したと思ったのですが、データが多くて改ページした場合 販売店コードは変わらないため、入力範囲が印字されません。 教えていただいた指定内容をページフッタに移動させて試してみましたがいまくいきません。 どのように指定すればよいでしょうか？ また出力範囲と同時に該当ページの販売店コードも印字したいのですが、これも単純にページフッタに移動させただけではうまくいきませんでした。 あわせて教えていただけますか。
- ベストアンサー
- その他(データベース)
- Excelでオートフィルタしたシートを印刷実行すると白紙が１ページ目に挿入される
Excel2003で約800行のデータを作り、オートフィルタ（日付データ）で出力対象レコードを絞り込み、それを印刷実行しています。 オートフィルタで例えば行番号500～550が抽出された場合、 印刷を実行すると、 １ページ目は行のタイトルと指定した行のみが出力 ２ページ目以降、タイトル行とデータ行が出力 となり、１ページ目は無駄になってしまいます。 データ行は行番号2からあり、ページ設定の印刷範囲でも2行目からを設定しています。 正しくはオートフィルター抽出結果の500～550行目データが１ページ目から印刷されなければならないと思うのですが、 どこの設定を変更すれば正しく印刷できるようになるのか 教えてください。 （説明が不明な場合には補足させていただきたく思います。よろしくお願いします）
- 締切済み
- オフィス系ソフト
- ページ指定して印刷したい
win7でエプソンPX-101を使っています。 ファイルに指定印刷という項目が出ません。 どうすればページ指定印刷が出来ますか？ 御教示ください。
- ベストアンサー
- プリンター・スキャナー
- 印刷設定（ページ指定）の方法（エクセル）
印刷しようとすると、いつも「すべて」が表示され、いちいち「ページ指定」を「２」から「３」としなければなりません。実際ほとんど１ページからの印刷が多いので、印刷命令したときに、「すべて」でなく「ページ指定」の方が出るような設定の仕方を教えてください。
- 締切済み
- プリンター・スキャナー
- エクセル 同じシートで印刷ページごとに違う倍率指定
いつもお世話になっております。 表題のとおりなのですが、 同じシートの中でだらだらと項目をいれて数十ページにわたる表を作成しています。 ですが、例えば1ページ目は10行まで。 ２ページ目は50行。３ページ目は25行というように、 ページ毎に範囲が違うわけです。 そうすると、印刷倍率指定は、自動的に各ページの中で一番行の多い２ページ目の50行の表がサイズに入るように50％なり60％なりにエクセルが勝手に指定しまうと思うのですが、そうすると他のページまで同じ倍率で印刷してしまいますよね(^^ゞ 私的には例えば１ページと3ページは100％ 、2ページ目は50％というように、別倍率指定の印刷をかけたいのですが・・・・ やはりシートに分けて印刷しないとダメでしょうか？ もし、裏技などご存じの方がいらっしゃいましたら、ぜひ教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセルでの印刷設定
こんにちは又よろしくお願いします。元々シートが６ページまである表で１ページ目に６枚まとめての印刷ボタンが作成されています。プリンターはＡ３サイズが印刷可能で用紙設定はＡ３で出力は原稿サイズになっています。そこにＡ４サイズの縮小印刷ボタンを作成しようと思い マクロの記録をはじめて (1)印刷の設定を用紙設定はそのままで出力はＡ４で設定 (2)実際に印刷する (3)Ａ４サイズの印刷物が出てくる (4)そのままでは元々のボタンで印刷したときＡ４サイズで出力されるので出力をＡ３の戻す (5)マクロ記録の終了 これで新たに作った縮小ボタンを押すとＡ４印刷物が出てきてその後設定は元のサイズに戻ると思ったのですが、実際印刷してみるとＡ３の物しか出てきません。正しいマクロ設定をご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
hallo-2007さん 早急な回答ありがとうございました。 ご指摘通り、マクロの設定で改ページが組まれてしまった状態では、 いくらフィルターしても対象のすべてが印刷されてしまうようです。 なので、全ての改ページを解除して、フィルターをした所、該当のページのみの印刷ができました。 ありがとうございました。