Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22077 / 76734 ←次へ | 前へ→

【60042】Re:コピーして印刷
発言  ponpon  - 09/1/25(日) 12:01 -

引用なし
パスワード
   ▼青空 さん:
>別なシートは、印刷用シートで固定です。
>コピー元のデータを一行ずつ別なシートに

こんな感じでできると思います。

Sub test()
  Dim myR As Range
  Dim r As Range
  
  With Sheets("Sheet1")
    Set myR = .Range(.Cells(2, "A"), .Cells(Rows.Count, 1).End(xlUp))
  End With
  For Each r In myR
    With Sheets("印刷用シート")
      With .Range("B2")
        .Value = r.Offset(, 2).Value
        .Offset(-1, 1).Value = r.Value
        .Offset(, 1).Value = r.Offset(, 1).Value
      End With
      '.PrintOut
      .PrintPreview
    End With
  Next
   
End Sub

>上書きコピーしてハガキサイズで印刷する方法はありますか。

これなら、印刷用シートのレイアウトとプリンターの設定が必要です。
自作するより無料のはがきソフトやワードの差し込み印刷の方が早くないですか?

2 hits

【60029】コピーして印刷 青空 09/1/24(土) 14:50 質問
【60030】Re:コピーして印刷 テリー 09/1/24(土) 15:36 発言
【60041】Re:コピーして印刷 青空 09/1/25(日) 10:55 質問
【60042】Re:コピーして印刷 ponpon 09/1/25(日) 12:01 発言
【60050】Re:コピーして印刷 青空 09/1/26(月) 0:51 お礼

22077 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free