Excel VBA質問箱 IV

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

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


39044 / 76732 ←次へ | 前へ→

【42809】SendKeys使用時のフォーカス
質問  猫おじさん  - 06/9/22(金) 15:20 -

引用なし
パスワード
    猫おじさんと申します。
 現在、印刷で悪戦苦闘しております。

 約400程のファイルがあり、1つずつ開いて、両面印刷をしたいと考えています。
 最初の1枚だけプリンタの設定を両面印刷にすれば良いと、タカをくくっていたのですが、プリンタの両面片面の設定は、シート毎に規定されていることに気づきました。(全部、片面印刷指定で作ってしまいました。)

 いろいろ調べたところ、プリンタの設定(プリンタドライバ)はマクロで直接命令できないため、SendKeysで行うとのことで、マクロを作ってみました。
 ところが、下記を実行すると、最初に送った"S"が、プレビューダイアログに送られず、エクセルシートやVBAエディタに送られてしまう等さんざんです。
 フォーカスさせようとして、
 MyID=Shell(Wb開いたファイル,vbNormalNoForcus)
とかを行っても、エラーになってしまいます。

 プレビューダイアログをフォーカスする方法をご教示頂ければ幸いです。
 
 また、シート毎に片面印刷指定となっているものを、両面印刷出来れば、SendKeys等の方法には、こだわっておりません。
 よろしくお願いいたします。

Sub test2()

For II= 1 to 400

ファイル名=nantoka & II
'Str 開くファイル名="D:\hogehoge\hugahuga\" & II
'Set Wb開いたファイル = Workbooks.Open(Filename:=Str開くファイル名)
'↑とりあえず、ファイルを一つづつ呼び出すことは出来てます。

'プレビュー設定ダイアログ
Application.Dialogs(xlDialogPrintPreview).Show
Application.Wait Now + TimeValue("00:00:03")

With ActiveSheet.PageSetup
SendKeys "S", Wait
SendKeys "{TAB}", Wait
End With

'ファイルを閉じる 

Next II
End Sub

0 hits

【42809】SendKeys使用時のフォーカス 猫おじさん 06/9/22(金) 15:20 質問
【42811】Re:SendKeys使用時のフォーカス Jaka 06/9/22(金) 15:54 発言
【42812】Re:SendKeys使用時のフォーカス ハチ 06/9/22(金) 16:06 発言
【42813】Re:SendKeys使用時のフォーカス 猫おじさん 06/9/22(金) 16:38 お礼

39044 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free