0

ページにデータを入力して印刷し、列から次のページに移動するマクロを作成できるかどうか疑問に思っていました。

番号は Sheet2、C2 に、名前は C4 に表示されます。これはテンプレートなので、空を削除してから、シート 1 のリストから次の番号と名前を更新する必要があります。

唯一のことは、開始セルを選択できるように設定できるか、または行内のすべてを一度に印刷する必要があるかということです。今日は 20 枚だけ印刷して、明日は 50 枚印刷したいとします。

現時点では手動で入力することが多いので、どんな助けも素晴らしいでしょう。

以下の例 (名前が変更されています) では、各フォルダーに配置するために印刷する必要がある最大 500 個の名前を列に含めることができます。以下に番号を正しく入力してください。シート1にセルD2の名前も含める方法がわかりません

Sub PrintLoop()
    Dim c As Range, LR As Long
    Application.ScreenUpdating = False
    LR = Sheets("sheet1").Range("C" & Rows.Count).End(xlUp).Row
    For Each c In Sheets("sheet1").Range("C2:C" & LR)
        Sheets("sheet2").Range("C2").Value = c.Value
        Sheets("sheet2").PrintPreview
    Next c
    Application.ScreenUpdating = True
End Sub
4

1 に答える 1

0

実行する前に印刷したい行だけを選択してください...

Sub PrintLoop()

    Dim rw As Range

    Application.ScreenUpdating = False

    For Each rw In Selection.Rows
        With Sheets("sheet2")
            .Range("C2").Value = rw.EntireRow.Cells(3).Value
            .Range("C4").Value = rw.EntireRow.Cells(4).Value
            .PrintPreview
            '.PrintOut From:=1, To:=1, Copies:=1
        End With
    Next rw

    Application.ScreenUpdating = True

End Sub
于 2012-07-16T23:33:23.863 に答える