| 
    
     |  | ▼ichinose さん: おはようございます。
 早速試してみましたところ
 思うように印刷されたり、キャンセルで
 印刷されないようになりました。
 大変ありがとうございました。
 
 
 >▼カズボウ さん:
 >こんばんは。
 >
 >>エクセルにてVBAを使用しプリンターを選んで
 >>印刷したいのですが、プリンターを選んで印刷は可能ですが
 >>プリンターを選ぶ画面でキャンセルボタンを
 >>押すと通常印刷されないはずがなぜか印刷されてしまいます。
 >>キャンセルした場合印刷されない方法をご伝授願えればと思います.
 >>よろしくお願いします。
 >>
 >>参考までに以下のように入力しておりました。
 >>  Sheets("ヤマト運輸").Select
 >  If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
 >    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
 >    End If
 >>  Sheets("住所録").Select
 >
 >とするか、
 >
 >>  Sheets("ヤマト運輸").Select
 >   Application.Dialogs(xlDialogPrint).Show
 >>  Sheets("住所録").Select
 >
 >として、印刷まで任せてしまうかですが・・・。
 
 
 |  |