シート名「委託内訳」で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

A 回答 (1件)

>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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング