Microsoft Visual Basicについて質問します。

シート名「委託内訳」でAN70がスペースの時に1ページのみ印刷し，スペースでない時に1～2ページを印刷したい時，下記のマクロでは2ページ目が印刷出来ません。
印刷できる方法は何かありますか？
よろしくお願いします。


Sheets("委託内訳").Select
Range("AN70").Select
ActiveCell = ATAI
If ATAI = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
End If

No.1 回答者： hana-hana3 回答日時： 2009/05/20 14:42

＞ActiveCell = ATAI

ActiveCell に ATAI と言う変数の値を入れる事になります。
ATAI にセルの値を入れるなら、ATAI = ActiveCell と記述してください。

Sheets("委託内訳").Select
If Range("AN70") = "" Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
End If

この回答へのお礼

設定できました。
ありがとうございました。
急いでいたので大変助かりました・・・。

お礼日時：2009/05/20 15:39