連続印刷
0
回答する


VBA

1ページ目にデータを入力し、2・3ページ目は1ページ目のデータの複写となるsheet1があります。

sheet1の1ページ目には1~4データを入力することができます。

sheet2に1~100のデータがあり、1~4、5~8、・・・、96~100といったようにvlookupでsheet2のデータをsheet1の1ページ目に反映させて、
自動的に連続印刷をするVBAを教えてほしいです。

saya 2018.09.19 23:40:07 768

コメントする

コメントするには ログイン していただく必要があります。

回答 1


シートに対してPrintOutメソッドを使用すると、そのシートの内容を印刷することができます。

For文を使って、参照元のセルをずらしながらSheet2からSheet1へ値をコピーしつつ、PrintOutメソッドの実行を繰り返せば、目的の連続印刷は可能だと思います。

Option Explicit

Public Sub PrintSheet()
    Dim i As Integer
    For i = 0 To 24
        Worksheets("Sheet1").Cells(1, 1) = Worksheets("Sheet2").Cells(i * 4 + 1, 1)
        Worksheets("Sheet1").Cells(2, 1) = Worksheets("Sheet2").Cells(i * 4 + 2, 1)
        Worksheets("Sheet1").Cells(3, 1) = Worksheets("Sheet2").Cells(i * 4 + 3, 1)
        Worksheets("Sheet1").Cells(4, 1) = Worksheets("Sheet2").Cells(i * 4 + 4, 1)
        Worksheets("Sheet1").PrintOut
    Next i
End Sub

※このサンプルコードでは、値が1列目にあると仮定しています。

shirohonoka 2018.09.20 02:13:40 (2018.09.20 02:21:15 更新)

コメントする

コメントするには ログイン していただく必要があります。


回答する
質問に回答するには ログイン していただく必要があります。

一覧に戻る