【マクロ】オートフィルターのA列のリストを順番に、行数によっては印刷の向きを指定して印刷したい！

Question

エクセルの受注表をいつも、オートフィルタで選択しては、印刷して・・・
とこれを200枚～300枚印刷してるのですが絶対に、抜けていたりダブっていたりして
もう、マクロで一括操作したいです。

オートフィルタした、A列のリストを順番に印刷したいのですが以下の条件でマクロ作れる方いらっしゃいますか？
（A列は受注番号になりますので、受注番号順にしたいことが絶対です）

1 ：A～G列（7列）のうち、E,F列は非表示にする。
2 ：15~16行くらいまではA4横向き印刷（1シートを1ページ設定）
3 ：16行超えた場合は縦向き印刷（1シートを1ページ設定）

もし、印刷設定をマクロではできない場合は「 1 」のみでも大丈夫です。


解決できると大変うれしいです。

ママチャリ · Accepted Answer

こんな感じで、どうでしょう。
ちなみに、下記のマクロからは、さらにMacro1、Macro2を呼んでいます。
Macro1、Macro2は、横方向印刷と縦方向印刷をマクロの自動記録を使って作成してください。

Sub オートフィルター連続印刷() 'この行から
    Dim i, j As Long
    Dim ws1, ws2 As Worksheet
    Set ws1 = Worksheets("オーダーシート")
    Set ws2 = Worksheets("sheet2")
    ws2.Cells.Clear
    For i = 2 To ws1.Cells(Rows.Count, 1).End(xlUp).Row
        If WorksheetFunction.CountIf(Range(ws1.Cells(2, 1), ws1.Cells(i, 1)), ws1.Cells(i, 1)) = 1 Then
            ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1) = ws1.Cells(i, 1)
        End If
    Next i
    j = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
        Range(ws1.Cells(1, 1), ws1.Cells(j, 1)).AutoFilter field:=1, Criteria1:=ws2.Cells(i, 1)
        If WorksheetFunction.Subtotal(103, Range("A:A")) < 14 Then
            Call Macro1
        Else
            Call Macro2
        End If
    Next i
End Sub 'この行まで

WindFaller · Answer

以下は、もし下らない、そんなことは必要がないとお思いになりましたら、無視なさって一向に構いません。

私の考えすぎかもしれませんが、このご質問は、私にとっては、ネットで作成依頼では、ちょっと荷が重すぎます。本当は、経費的には掛かりますが、プログラマーの人を読んで作ってもらったほうが良いような気がします。参考サイトの内容は、簡易型ですから、もし、ここで進めるなら新たに考えたほうが良さそうな気がします。

そして、できれば、今手作業でやっていることをどこまで、マクロで反映できるか、そういうアプローチのほうが良いような気がしています。

私はいくつかの問題点は想像できます。ネットの参考サイトとは比にならないのではないでしょうか。もちろん、1～3までまったく問題はありません。そういう問題ではないような気がするのです。

①
>1シート に受注番号順になってはおらず、全部ランダムに入力されています。

受注番号がランダムになっているとしても、ネットの参考サイトは、同じ名前で検索するように、この受注番号も同じ番号があって、それを印刷するというのでしょうけれども、元のリストは順番自体はある絶対的なものがあるのかな、と思います。

ふつうなら、最初に、ソートを掛けてしまうはずです。
それをしないのは、ここには書かれていない時系列が存在しているのかと思いました。

>受注番号順にしたいことが絶対です

ランダムな番号があり、そこから一意にものを取り出して、並べ替えをする、という基本的な作業がありますね。しかし、たぶん、「オーダーシート」の並べ替えは、アンタッチャブルのような気がしています。

②
おそらく手作業ですることをマクロに写し込むにしても、

>絶対に、抜けていたりダブっていたりして、もう、マクロで一括操作したいです。
抜けていたり、ダブったりとは、数値のことでしょうか。

その問題はどうして起きるのでしょうか。人間がやって失敗することは、マクロでも同じ失敗する可能性があります。

ひとつの注文に対して、「200枚～300枚」とは半端な数ではありませんから、たぶん、マクロで、今、どこを印刷しているかという、ページのカウントの機能と中止命令の際の記録を付けてあげないといけないような気がするのです。

>2 ：15～16行くらいまではA4横向き印刷（1シートを1ページ設定）
>3 ：16行超えた場合は縦向き印刷（1シートを1ページ設定）
これ自体は、1枚ですね。同じものを何百枚ということでしょうね。
この前、同じようにプリントの質問があった時に、必ず1枚に納まるという前提条件がありました。印刷のルールには、縮小をしないこと、という暗黙のルールがあるらしいし、現に私は、今も絶対的に守っています。

もし、私の想像が全部当てはまるようなら、難易度はかなり高いと思います。
マクロでもミスすることはあると思うのですが、そのマクロのミスをきちんと記録するような方法を考えて、その後でも、修復して印刷できるようにしたらと考えています。それをメインテする側の負担は少し多くなるかもしれませんが、マクロなしでやっていた時代よりは、はるかにマシになると思います。

なお、一応原案は、こちらでも作りましたが、私は、発表してしまうと、その後の制作意欲が下がってしまうので、少し確認を取りたいと思いました。もちろん、他の方のもので良いものがあれば、それに越したことはありません。

いくつかのエラーに対するものとして、
・印刷ページにはカウントを振る。（何枚プリントしたか記録する。)
・トナー切れ/紙きれの対策
・上記に合わせて、マクロの中途からの印刷の開始
・印刷が始まってからの緊急停止命令(ESCで印刷を止める)
・1ページに納まらない時の処置は、印刷内容を縮小するか？
など、思いつくものがあります。
これらのテクニックは、昔からあるものです。

p.s.現実に注文番号があるのにも関わらず、何もないもののに印刷されてしまうものについては、そんなことはあるのでしょうか？

ママチャリ · Answer

「なにもないデータだけ印刷されてしまう」そうですが、そのマクロを補足にアップすることはできますか？それをベースにした方が、理解しやすいと思うのですが…。

ママチャリ · Answer

ご要望の内容は下記の通りであってますか？

1枚の受注一覧シートと数百枚の受注明細シートがあり、各受注明細シート名は受注番号となっている。
受注一覧のA列には今回印刷したい受注番号が入力されていて、その受注番号に該当する受注明細シートを次々に印刷したい。
印刷の際は、行数の少ない受注明細シートはA4横。行数の多いシートはA4縦で、１シート1枚で印刷する。

【マクロ】オートフィルターのA列のリストを順番に、行数によっては印刷の向きを指定して印刷したい！

こんな感じで、どうでしょう。

以下は、もし下らない、そんなことは必要がないとお思いになりましたら、無視なさって一向に構いません。

「なにもないデータだけ印刷されてしまう」そうですが、そのマクロを補足にアップすることはできますか？それをベースにした方が、理解しやすいと思うのですが…。

ご要望の内容は下記の通りであってますか？

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング