![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
現在,相対記録で作成したマクロを使っています。
Sub 予定表印刷()
ActiveCell.Range("A1:I53").Select
ActiveSheet.PageSetup.PrintArea = Selection.Address
ActiveSheet.PageSetup.Orientation = xlPortrait
ActiveSheet.PrintOut
End Sub
このあとに,横長で$T$2から$AX$32を絶対番地で印刷し,
かつ両面印刷にしたいのですが,うまくいきません。
縦長と横長の混在はできないのでしょうか。
それとも,印刷範囲が離れているのがいけないのでしょうか。
もしかして,相対指定と絶対指定の混在がいけないのでしょうか・・・。
No.2ベストアンサー
- 回答日時:
>>シート1・2を「作業グループにして」一度に印刷する
>と言うのがよく分からないのですが,
マクロ以前の、エクセルの基本的な操作です。
参考:任意の複数のシートを選んで同時に印刷する
http://www.atmarkit.co.jp/fwin2k/win2ktips/849pr …
「新しいマクロの記録」で「シート1,2を作業グループにして印刷する」というのを録ってみると
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets(Array("Sheet1", "Sheet2")).Select
Sheets("Sheet1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
みたいな具合でいいと判りますので、実際に手を動かしてやってみてください。
No.1
- 回答日時:
両面印刷で出すには、「1回の印刷で」出力しなければ出来ません。
まず。1枚のシートの中で縦横の混在させるには、ご相談でやられているとおり用紙縦でまず1枚印刷、その後印刷の向きを横に変えて次を印刷と、「2回に分けて」印刷するしか手がありません。
結果してこれでは、両面印刷は出来ないというのが結論です。
じゃぁどうやったら出来るのか、手立てとしては。
シート1を用紙縦の設定にしておいてまず1枚目を作成
シート2を用紙横の設定にしておいて2枚目を作成
シート1・2を「作業グループにして」一度に印刷する
ことで、出来ます。
マクロ自体は「新しいマクロの記録」で簡単に入手できるので、作成してください。
ただし条件としては
1)ご利用のパソコンのウィンドウズの標準のプリンタを、エクセルを起動する前にプリンタのプロパティで両面印刷にして置く事
2)ご利用のプリンタが、縦横混在の連続印刷を上手に両面印刷で受ける性能を持っている事
などがあります。
どうも,ありがとうございます。
横長についても,マクロ記録を取りました。
>シート1・2を「作業グループにして」一度に印刷する
と言うのがよく分からないのですが,
2つのマクロを1つにしてしまうと言うことでしょうか?
これは質問する前にやってみたのですが,2枚目しか印刷されませんでした・・・。
プリンタについては,職場のプリンタ(かなり高級品)を使っていますので,
たぶん大丈夫ではないかと安易に考えています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- プリンタ・スキャナー プリンタ買おうと思ってます。キヤノンCanonがいいと思ってます。今まで使っていて十分機能満たしてい 6 2022/08/01 15:48
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft365搭載Windows11PCへ...
-
Officeを開くたびの「再起動メ...
-
一太郎でカーソルを次の行の先...
-
英数字のみ全角から半角に変換
-
現在、PC2台でMicrosoft 365 Pe...
-
エクセルやワードを無料で使え...
-
Microsoft Formsの「個人情報や...
-
パソコン買い換え Office移行 ...
-
エクセルで英文字に入れた下線...
-
大学のレポート A4で1枚レポー...
-
excelの画面のグリッド線の消滅。
-
エクセルの貼り付け「リンクさ...
-
outlookで宛先が異なるメールを...
-
Excel 日付を比較したら、同じ...
-
office365って抵抗感ないですか?
-
会社PCのメールが更新されない
-
Microsoftにofficeアプリについ...
-
Office 2021 Professional Plus...
-
Windows 11で、IME言語バー(IM...
-
Office2021を別のPCにインスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
英数字のみ全角から半角に変換
-
「生産性ソフトウェア」とは何...
-
会社PCのメールが更新されない
-
【関数】○年○ヶ月と表示された...
-
WEBの記事を印刷する際にA...
-
エクセルでXLOOKUP関数...
-
Microsoft familyに追加されま...
-
会社のOutlookにてメールを予約...
-
Microsoft Formsの「個人情報や...
-
Microsoft365の一部を解約したい
-
マクロ自動コピペ 貼り付ける場...
-
Outlook で宛先が複数の場合の人数
-
outlookのメールが固まってしま...
-
【Excel VBA】PDFを作成して,...
-
大学のレポート A4で1枚レポー...
-
office365って抵抗感ないですか?
-
Microsoftにofficeアプリについ...
-
Excel テーブル内の空白行の削除
-
マイクロソフト 一時使用コード...
おすすめ情報