Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10030 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24134】プリンターを選択し印刷したいがキャンセルしても印刷される問題 カズボウ 05/4/13(水) 0:24 質問[未読]
【24135】Re:プリンターを選択し印刷したいがキャン... ichinose 05/4/13(水) 1:25 回答[未読]
【24137】Re:プリンターを選択し印刷したいがキャン... カズボウ 05/4/13(水) 6:42 お礼[未読]
【24134】プリンターを選択し印刷したいがキャンセ...
質問  カズボウ E-MAIL  - 05/4/13(水) 0:24 -
引用なし
パスワード
   エクセルにてVBAを使用しプリンターを選んで
印刷したいのですが、プリンターを選んで印刷は可能ですが
プリンターを選ぶ画面でキャンセルボタンを
押すと通常印刷されないはずがなぜか印刷されてしまいます。
キャンセルした場合印刷されない方法をご伝授願えればと思います．
よろしくお願いします。

参考までに以下のように入力しておりました。
　　Sheets("ヤマト運輸").Select
　　Application.Dialogs(xlDialogPrinterSetup).Show
　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
　　Sheets("住所録").Select
【24135】Re:プリンターを選択し印刷したいがキャ...
回答  ichinose  - 05/4/13(水) 1:25 -
引用なし
パスワード
   ▼カズボウ さん：
こんばんは。

>エクセルにて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

として、印刷まで任せてしまうかですが・・・。
【24137】Re:プリンターを選択し印刷したいがキャ...
お礼  カズボウ E-MAIL  - 05/4/13(水) 6:42 -
引用なし
パスワード
   ▼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
>
>として、印刷まで任せてしまうかですが・・・。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10030 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free