|
こんばんは。
>ご丁寧にありがとうございます。
>初心者の私でもわかりやすく読ませていただいております。
>
>私が印刷使用としている帳票は
>A1:O1までに項目名が並んでいます。
>残りのA2:O2393まではレコードです。
>1行目は印刷タイトルに設定していますので
>1ページの印刷行数はタイトルも含め101行にするつもりです。
>ちなみにB4横の印刷設定にしています。以前にご教授いただいた
>↓の中を修正すればすむという問題なのでしょうか?
最初に申し上げたとおり処理は遅いですが、下記のコードの修正で済みます。
Sub main()
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1"
’行タイトルの設定
End With
With Range("a1:o1")
.Formula = "=""項目""&column()"
.Value = .Value
End With
' 見出しの設定↑
With Range("a2:o2393")
.Formula = "=row()*column()"
.Value = .Value
MsgBox "サンプル作成"
Application.ScreenUpdating = False
Call pr_settei(.Cells, 100)
Application.ScreenUpdating = True
End With
ActiveSheet.PrintPreview
End Sub
他のプロシジャーは前回と同じです。
これも新規ブックで試してください。
|
|