Excel VBA質問箱 IV

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

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


40046 / 76732 ←次へ | 前へ→

【41790】Re:改ページ設定
発言  ichinose  - 06/8/22(火) 22:08 -

引用なし
パスワード
   こんばんは。

>ご丁寧にありがとうございます。
>初心者の私でもわかりやすく読ませていただいております。
>
>私が印刷使用としている帳票は
>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

他のプロシジャーは前回と同じです。

これも新規ブックで試してください。

0 hits

【41723】改ページ設定 トホホ 06/8/21(月) 15:10 質問
【41724】Re:改ページ設定 ハチ 06/8/21(月) 15:37 回答
【41725】Re:改ページ設定 トホホ 06/8/21(月) 15:48 お礼
【41736】Re:改ページ設定 ichinose 06/8/21(月) 18:42 発言
【41761】Re:改ページ設定 トホホ 06/8/22(火) 9:39 お礼
【41766】Re:改ページ設定 ichinose 06/8/22(火) 12:35 発言
【41773】Re:改ページ設定 トホホ 06/8/22(火) 13:53 質問
【41783】Re:改ページ設定 Kein 06/8/22(火) 16:56 回答
【41790】Re:改ページ設定 ichinose 06/8/22(火) 22:08 発言

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