[[20100116203652]]　『自動改ページ差し込み印刷』（はる）　ページの最後に飛ぶ

『自動改ページ差し込み印刷』（はる）

sheet1のA1.B1.C1のデータ（1行目）をsheet2のD3.E5.G8へそれぞれ差し込み(1ページ目）印刷し、

次にsheet1のA2.B2.C2(2行目)をsheet2のD3.E5.G8（同じフォーム）へ差し込み(２ページ目）印刷、

sheet1の各行ごとにsheet2を自動改ページ差し込み印刷の仕方を教えてください。

sheet1が90行あればsheet2も90ページになります。

初めての質問でうまく伝えられたか心配ですがどなたか教えてください。

どうぞよろしくお願いいたします。

Office2007を使用しています。

 マクロで作ってみました。
標準モジュールに突っ込んでお試しください。
データ件数は2～3件でテストの上、問題ない事を確認してから
大量データを試す事をお勧めします。
　
マクロについてよくわからない場合はこちらも参考にしてみてください。
http://www.excel.studio-kazu.jp/mag2/backnumber/mm20040831.html
　
前提条件：
Sheet1のA列の1行目からデータが隙間無く入力されている事
　
Option Explicit
Sub test()
    Dim r As Range
    Dim dataSheet As Worksheet
    Dim printSheet As Worksheet
    '初期設定
    Set dataSheet = Worksheets("Sheet1")
    Set printSheet = Worksheets("Sheet2")
    'データ用シートのA列にデータがある分だけループ
    For Each r In dataSheet.Range("A:A")
        'A列が空ならループ終了
        If r.Value = "" Then
            Exit For
        End If
        With printSheet
            'データ用シートから印刷用シートにデータを転記
            .Range("D3").Value = r.Offset(, 0).Value
            .Range("E5").Value = r.Offset(, 1).Value
            .Range("G8").Value = r.Offset(, 2).Value
            '印刷用シートをプリントアウト
            .PrintOut
        End With
    Next
    MsgBox "処理終了"
End Sub
（ご近所PG）

ご近所PG　様

ありがとうございます。
しばらくレスがなく諦めていたのでとてもうれしいです。
早速試してみます。

（はる）

ご近所PG　様

標準モジュールに入れて実行しました。
バッチリデス。
処理も早くプリントアウトできました。
本当にありがとうございました（謝謝）

（はる）

コメント返信：

[ 一覧(最新更新順) ]

[[20100116203652]] 『自動改ページ差し込み印刷』（はる） ページの最後に飛ぶ

[[20100116203652]]　『自動改ページ差し込み印刷』（はる）　ページの最後に飛ぶ