Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8937 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30215】ページ設定にて印刷のキャンセル mitu 05/10/22(土) 6:29 質問[未読]
【30216】Re:ページ設定にて印刷のキャンセル ichinose 05/10/22(土) 6:55 発言[未読]
【30221】Re:ページ設定にて印刷のキャンセル mitu 05/10/22(土) 12:32 お礼[未読]
【30237】Re:ページ設定にて印刷のキャンセル YN62 05/10/23(日) 11:01 質問[未読]
【30248】Re:ページ設定にて印刷のキャンセル ichinose 05/10/24(月) 7:26 発言[未読]
【30215】ページ設定にて印刷のキャンセル
質問  mitu  - 05/10/22(土) 6:29 -
引用なし
パスワード
   印刷の前に
Application.Dialogs(xlDialogPageSetup).Showにて、ページ設定を表示させています。
この設定の中で、キャンセルをクリックしたら、印刷そのものをキャンセルさせたいのですが、手法をご教授ねがいます。
【30216】Re:ページ設定にて印刷のキャンセル
発言  ichinose  - 05/10/22(土) 6:55 -
引用なし
パスワード
   ▼mitu さん：
おはようございます。

>印刷の前に
>Application.Dialogs(xlDialogPageSetup).Showにて、ページ設定を表示させています。
>この設定の中で、キャンセルをクリックしたら、印刷そのものをキャンセルさせたいのですが、手法をご教授ねがいます。

Sub test()
　　ans = Application.Dialogs(xlDialogPageSetup).Show
　　MsgBox ans
End Sub

上記のコードにおいて、ＯＫボタンクリック時とキャンセルボタンクリック時の
結果の違いを確認してください。
【30221】Re:ページ設定にて印刷のキャンセル
お礼  mitu  - 05/10/22(土) 12:32 -
引用なし
パスワード
   ▼ichinose さん：
いつもお世話になっています。
早速のご教授有難うございました。
ansがfalseの場合にCancelをtrueにすることで解決することができました。
【30237】Re:ページ設定にて印刷のキャンセル
質問  YN62  - 05/10/23(日) 11:01 -
引用なし
パスワード
   ▼ichinose さん：

失礼します。
コードを使わせていただきましたが、設定した枚数の印刷は継続されますが･･･
ストップが効きませんが、何か問題があるのでしょうか。
for i = 1 to 10
next i
で、印刷データは既に送信されてしまっているからでしょうか？
【30248】Re:ページ設定にて印刷のキャンセル
発言  ichinose  - 05/10/24(月) 7:26 -
引用なし
パスワード
   ▼YN62 さん：

おはようございます。

>コードを使わせていただきましたが、設定した枚数の印刷は継続されますが･･･
>ストップが効きませんが、何か問題があるのでしょうか。
>for i = 1 to 10
>next i
>で、印刷データは既に送信されてしまっているからでしょうか？
もう少し、具体的なコードと問題のオペレーティングを
記述してください。
私には、理解できませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8937 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free