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

＞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

お礼

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