[[20231206183416]]　『A4に2ページ分印刷する方法』（りれき）　ページの最後に飛ぶ

『A4に2ページ分印刷する方法』（りれき）

A4を横にしたときに左右に2個並ぶ大きさの表があります
用紙節約のために、そうしたいのですが
どのように設定したらうまくできますか？
Excelデータは縦に続いていて、改ページのときに
12
34
56
とページが並ぶようにしたいです

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

ちょっとやってみましたが、エクセルでの機能は見つけられませんでした。
しかしながら、こういうのはプリンタの機能でできる場合が多いと思います。
（設定方法も含めて、できるかどうかはプリンタによります）

参考
https://net-business888.com/excel-a4-2bunnkatu/
（ゆたか） 2023/12/07(木) 08:39:39

 >Excelデータは縦に続いていて、改ページのときに
 >12
 >34
 >56
 最初何をおっしゃっているのかよくわからなかったのですが、
 もしかしてで外している可能性も大ですが、
 １ページ ７ページ
 ２ページ ８ページ
 ３ページ ９ページ
 ４ペーシ 10ページ
 ５ページ 11ページ
 ６ページ 12ページ

 となっているページレイアウトを
 １ページ ２ページ
 ３ページ ４ペーシ
 ５ページ ６ページ
 と変えたいということでしたら

 ページ設定ーシートーページの方向で
 左から右となっているのを上から下に変更してOKとしてみてください。

（檸檬） 2023/12/08(金) 16:10:19

私はPDF化し、PDF編集ソフトで2枚を1ページにしたり4枚
を1ページにしたりするソフトを使います。
ページ並びも縦に並べたり横に並べたりと融通が効きますし。
（MK） 2023/12/08(金) 16:18:00

マクロですが、
シートをコピーして、
1ページずつ画像としてコピー配置、
印刷しています。

問題無ければ採用して下さい。

 Sub test()
    Const POS = 7       '★要変更　偶数ページの列位置です
    Const FTUNE = 5     '★要変更　その１つ左の列幅で微調整
    Dim rr As Range, r() As Range, rPic As Range
    Dim i As Long, n As Long

    ActiveSheet.Copy                        'シートをコピー
    ActiveWindow.DisplayGridlines = False   '画像コピーの為枠線を非表示
    ActiveWindow.Zoom = 100
    With ActiveSheet
        Set rr = .Range("A1", .UsedRange).Resize(, POS - 1)
        rr.Cells(1, POS).ColumnWidth = FTUNE
        .HPageBreaks.Add rr.Offset(rr.Rows.Count)   '最終ページ追加
        ReDim r(0 To .HPageBreaks.Count)
        Set r(0) = rr.Rows(1)
        Application.Goto rr.Cells(Rows.Count, 1)    '以下でのエラー防止おまじない
        For i = 1 To UBound(r)                      'ページ上を記憶
            Set r(i) = .HPageBreaks(i).Location.Resize(, rr.Columns.Count)
        Next
        For i = 1 To UBound(r)
            If i Mod 2 Then
                Set rPic = r(n)                 '奇数ページの位置
            Else
                Set rPic = r(n).Offset(, POS)   '偶数ページの位置
                n = n + 1
            End If
            .Range(r(i - 1), r(i).Offset(-1)).CopyPicture xlScreen, xlPicture
            rPic.PasteSpecial
            .Shapes(.Shapes.Count).ScaleHeight 0.995, msoTrue, msoScaleFromTopLeft  'ページ数を増やさない為の縮小
        Next
        rr.Clear
        .ResetAllPageBreaks
'        .PrintOut                  ' ★を調整し、そのまま印刷でよければこちらを採用
        .PrintOut Preview:=True     ' ★を調整前はこちらを採用し、印刷プレビューを手動で閉じる
                                    'または確認する場合はこちらを採用し、印刷をする
        Application.DisplayAlerts = False
        .Parent.Close       'コピーしたBookを削除
    End With
 End Sub

（kazuo） 2023/12/09(土) 09:20:58

コメント返信：

[ 一覧(最新更新順) ]

[[20231206183416]] 『A4に2ページ分印刷する方法』（りれき） ページの最後に飛ぶ

[[20231206183416]]　『A4に2ページ分印刷する方法』（りれき）　ページの最後に飛ぶ