回答 受付中

連続印刷

  • すぐに回答を!
  • 質問No.9576403
  • 閲覧数63
  • ありがとう数0
  • 気になる数0
  • 回答数2

お礼率 0% (0/3)

フィールドをかけて得意先を全て印刷したいのですが
マクロ初心者の為、
件数がたくさんあり時間短縮できる方法を教えてください。
件数は毎回違います。

回答 (全2件)

  • 回答No.2

ベストアンサー率 48% (179/367)

他カテゴリのカテゴリマスター
図はB列から始まっていますが、B列からですか。
得意先順に並んでいますか。
'
Option Explicit
'
Sub Macro1()
'
  Dim RowSta As Long
  Dim RowEnd As Long
  Dim Row As Long
'
  RowSta = 3
  RowEnd = [F2].End(xlDown).Row
  Range("B3:H" & RowEnd).Sort Key1:=[F3] ' 得意先順に並んでいるならコメントにする
  ActiveSheet.PageSetup.PrintTitleRows = "2:2"
'
  For Row = 4 To RowEnd + 1
'
    If Cells(RowSta, "F") <> Cells(Row, "F") Then
      ActiveSheet.PageSetup.PrintArea = "B" & RowSta & ":AA" & Row - 1
      ActiveSheet.PrintOut
      RowSta = Row
    End If
  Next Row
End Sub

得意先別に印刷します。
フィルターではなく印刷範囲の指定でやっています。
最初に得意先順に並べ替えますが、もともとそうなっているなら必要ないのでコメントにして下さい。
感謝経済
  • 回答No.1

ベストアンサー率 28% (4455/15839)

他カテゴリのカテゴリマスター
>フィールドをかけて
とはどういうことですか?
フィルターをかけて、のことですか?
ーー
望みのフィールドを選択して、全行(レコード)のことか。
ーー
Oracleなどで吐き出した資料ではないですか。それなら、その担当者に頼むのがはやいと思いますが。データベースソフトなら、SQLが使えて、フィルターもフィールドの選択指定も簡単だし、プリンターも(パソコンに多い、インクジェットより)良いのが付いているのでは。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,500万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する

特集


感謝でトクする時代へ!感謝経済に参加しよう!

ピックアップ

ページ先頭へ