連番印刷する excel VBA

Sub renban()
 
 受注番号 = Range("C5").Value
 枝番開始 = Range("C6").Value
 枝番終了 = Range("C7").Value
 
 
 For i = 枝番開始 To 枝番終了
  枝番 = Right("000" & i, 3)
  Sheets("印刷").Range("C33") = 受注番号 & " - " & 枝番
  Sheets("印刷").Range("K33") = 受注番号 & " - " & 枝番
  Sheets("印刷").Range("A1:L56").PrintOut
 Next i
 

End Sub

• C33やK33、A1:L56などの位置合わせは試行錯誤

• オフィス用のプリンタ複合機は手差しや厚紙などの印刷設定がVBAからできなくてA4普通紙に印刷されてしまうとか、使えねー
• こんな時は複雑なオプションのない一般用プリンタで印刷するのが吉