ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
会員登録
x

or

Excelの1ページに複数の選択肢を印刷する方法は?

大量のデータを含む大きなワークシートがあり、今では、選択した範囲を1ページに印刷したくないため、多くの用紙を節約できます。 Excelは、 印刷面を設定する 一度に複数の選択肢を印刷する機能がありますが、選択した各範囲は1ページに別々に印刷されます。 この記事では、複数の非連続選択を1ページに印刷する方法について説明します。

VBAコードを使用して1つのワークシートから複数の選択肢を1ページに印刷

Kutools for Excelを使用して1つまたは複数のワークシートから複数の選択肢を1ページに印刷


VBAコードを使用して1つのワークシートから複数の選択肢を1ページに印刷


1つのワークシートの複数の選択された非連続選択を1ページに印刷するには、次のVBAコードを参考にしてください。

1。 押す Ctrlキー キーを押して、印刷する範囲を選択します。

2。 押さえつける Alt + F11 キーを押すと、 アプリケーション用Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードを モジュール 窓。

VBAコード:複数の選択肢を1ページに印刷

Sub PrintOutRange()
'Update 20150528
Dim xRng1 As Range
Dim xRng2 As Range
Dim xNewWs As Worksheet
Dim xWs As Worksheet
Dim xIndex As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWs = ActiveSheet
Set xNewWs = Worksheets.Add
xWs.Select
xIndex = 1
For Each xRng2 In Selection.Areas
    xRng2.Copy
    Set xRng1 = xNewWs.Cells(xIndex, 1)
    xRng1.PasteSpecial xlPasteValues
    xRng1.PasteSpecial xlPasteFormats
    xIndex = xIndex + xRng2.Rows.Count
Next
xNewWs.Columns.AutoFit
xNewWs.PrintOut
xNewWs.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4。 次に、 F5 キーを押してこのコードを実行すると、選択した範囲が一度に印刷され、1ページに印刷されます。


Kutools for Excelを使用して1つまたは複数のワークシートから複数の選択肢を1ページに印刷

上記のコードは、1つのワークシートから選択した範囲を印刷するのに役立ちます。複数のワークシートの複数の選択を1ページに印刷する場合は、上記のコードは機能しません。 してください心配しないでください、ここでは、私はあなたに便利なツールを紹介することができます - Kutools for Excelそのと 複数選択ウィザードを印刷する 1つのワークシートまたは複数のワークシートの選択内容を一度に1ページに印刷することができます。

Kutools for Excel : 300便利なExcelアドイン以上で、60日以内に自由に試してみてください.

インストールした後 Kutools for Excel次の手順を実行してください。

1に設定します。 OK をクリックします。 大口プラン > 印刷 > 複数選択ウィザードを印刷する、スクリーンショットを見る:

doc複数の選択肢を印刷する1

2。 の中に 複数選択ウィザードを印刷する、クリックdoc追加ボタン ボタンを押して、印刷範囲を選択して印刷範囲のリストボックスに1つずつ追加します(1つのワークシートまたは複数のワークシートから範囲を選択できます)。 docの削除ボタン ボタンは必要のない範囲を削除することができます。スクリーンショットを参照してください:

doc複数の選択肢を印刷する2

3。 リストボックスに選択内容を追加した後、をクリックしてください。 次へ>> ボタンを使用してウィザードのステップ2に進み、必要に応じて印刷設定を指定し、選択した範囲の間に空白行をチェックで追加することができます 範囲間に空白行を追加する オプション、スクリーンショットを参照してください:

doc複数の選択肢を印刷する3

4。 次にクリックしてください 次へ>> ウィザードのステップ3で、一時ワークシートのアクションを指定し、ワークシートをアクティブにできますが、印刷しない、ワークシートを印刷して保持するか、ワークシートを印刷して削除します。 スクリーンショットを見る:

doc複数の選択肢を印刷する4

5に設定します。 OK をクリックします。 仕上げ ボタンをクリックすると、選択したすべての範囲がリンクされた画像オブジェクトとして新しいワークシートに貼り付けられます。 ワークシートでドラッグして並べ替えることができます。 スクリーンショットを見る:

doc複数の選択肢を印刷する5

6。 この新しいワークシートを印刷すると、必要に応じて1つのページに範囲が印刷されます。

この複数選択印刷ウィザードユーティリティの詳細については、クリックしてください。

Excel用のKutoolsを今すぐダウンロードして無料でダウンロードできます!


デモ:Kutools for Excelを使用して、1ページまたは複数のワークシートから複数の選択肢を1ページに印刷

Kutools for Excel200便利なExcelアドイン以上で、60日に制限なく試してみることができます。 今すぐダウンロードして無料トライアル!


Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ok · 1 years ago
    how to print selection area with multi print ? i means selection area i wan to print 10 times
  • To post as a guest, your comment is unpublished.
    Mooring10 · 3 years ago
    I tried your VBA code with Excel 2016 and I get an error: Compile Error: Sub of Function not defined.

    This line is highlighted: Set [b]xRng1[/b] = xNewWs.Cells(xIndex, 1)