[[20100210093849]]　『印刷済のフラグ』（YUKI）　ページの最後に飛ぶ

『印刷済のフラグ』（YUKI）

すいません。教えて下さい。

sheet名：顧客データ　に

         [A]      [B]      [C]	[D]        [E]
 [1]　　　番号     店ｺｰﾄﾞ   客ｺｰﾄﾞ   顧客名   印刷済ﾁｪｯｸ
 [2]	 1       100     12345    *****
 [3]	 2       200     67890    *****

と、Ａ列の番号が通し番号で1000件以上のデータがあります。

sheet名：印刷用　で　sheet名：顧客データ　のデータをVLOOKUPで検索して

Sub FROMTO印刷()

    Sheets("顧客データ").Select

    Range("A1:AA56").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$AA$56"

    Dim x As Integer
    Dim y As Integer

    x = Range("aw8").Value

    y = Range("ax8").Value

    For i = x To y

    Range("AW3") = i

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Next i

    Range("AW3") = 1

End Sub

で、sheet名：顧客データ　の番号を指定して連続印刷しています。

 そこで、印刷が済んだ番号の　sheet名：顧客データ　Ｅ列の印刷済ﾁｪｯｸ　欄に
 自動で『済』マークを入れるような仕組みを考えているのですが・・・
 良い方法があれば、教えて下さい。宜しくお願い致します。

Windows2000,Excel2003
　

 AW8　AX8　AW3はそれぞれどんな役割なんですか？
 というか全部載せていただくともっと回答がつきやすくなると思います。
 それと印刷枚数1枚なので Collate:=Trueこの部分は必要ないかなと思います。
 「部数単位で印刷しますか？　=　Yes」という意味です。
 （通りすがり）

スイマセン。

 AW8で印刷するデータの最初の番号を指定しています。
 AX8で印刷するデータの最後の番号を指定しています。
 AW3は、印刷データの画面確認用なので、印刷に関係ありません。

分かりづらい説明で申し訳ございませんが、宜しくお願い致します。
（YUKI）

 あんまりマクロ詳しくないのですが、コード見る限り顧客データシートの同じところだけ何枚も印刷
 してるように見えるのですが、
 ＞で、sheet名：顧客データ　の番号を指定して連続印刷しています。 
 どういう意味ですが？

 質問が続いてしまって申し訳ないです。

 他のところでも同じように答えているのですが、プロセスの一つだけ直しても全体の改善には至らな
 いと思いますので全体を通してどのような結果を求めているのかを聞いたほうがいいと思います。

 ちょっと私の理解力が乏しいようで答えられなくてすみません。
 （通りすがり）

 Sheets("顧客データ").Select  となっていますが、
 印刷するのは、印刷用シートなのではないですか？

 Sheets("印刷用").Select　の間違いだと仮定して、
 印字の後に、
 Sheets("顧客データ").Range("A:A").Find(What:=i).Offset(, 5).Value = "済"
　
（純丸）(o^-')b

純丸　様

ありがとうございます！希望とおりの処理が出来ました!!

ご指摘のとおり、Sheets("顧客データ").Select ではなく　Sheets("印刷用").Select　でした。

本当に感謝です!!
これからも頑張りますので、宜しくお願い致します。
（YUKI）

もう一つ教えて下さい。

 印刷終了後に　MsgBoxで　 "○○枚印刷しました。"　と表示するには、どうしたらよろしい のでしょうか？
 度々で申し訳ございませんが、宜しくお願い致します。

（YUKI）

 こんなのを入れてみてくらはい。

 MsgBox y - x + 1 & " 枚印刷しました。"　
　
（純丸）(o^-')b

純丸　様

ありがとうございます！完璧です!!

（YUKI）

 もう見ないかもしれませんが、こんなのもありかと。

 MsgBox x & " 番から " & y & " 番まで" & Chr(10) & y - x + 1 & " 枚印刷しました。"
　
（純丸）(o^-')b

純丸　様

ありがとうございます！更に完璧です!!

本当に感謝、感謝です!!!

（YUKI）

コメント返信：

[ 一覧(最新更新順) ]

[[20100210093849]] 『印刷済のフラグ』（YUKI） ページの最後に飛ぶ

[[20100210093849]]　『印刷済のフラグ』（YUKI）　ページの最後に飛ぶ