【sendkeysメソッドが動かずに苦慮しております】
【sendkeysメソッドが動かずに苦慮しております】
OS：2000
Excel：2003
VB：6.5
こんにちは。
sendkeysメソッドが動かずに苦慮しております。
ネットでいろいろ調べてみましたが、やはり正常に動かすのは難しい様です。
実際、何をしたいのかと言うとプリンターの出力時の設定を変更したいと思っております。
会社のプリンターですが方針でデフォルトが「両面」「２分割」で設定されております。
ただ複数ファイルの跨ったプレゼン資料などを大量に出力する際は「片面」「分割なし」
で設定を変更してプリントアウトしたいと思っており、いろいろ調べた結果Sendkeysを
使うことにいたしました。
ただ、先に申し上げた通りsendkeysメソッドが動かず悩んでおります。
素人の不躾けなご質問で大変申し訳ありませんが、解決できる方法をご存知の方ご教授ください。
sendkeysメソッドを使わない方法でも問題ありません。
以下、ダイアログを表示させ、タブを移動させるまでのコードです。
それではどうぞよろしくお願いいたします。
Sub AAA()
Dim FOS As FileSystemObject
Dim FolderC As Folder
Dim FilesC As Files
Dim FileC As File
Dim FileName, Path_Name As String
Set FOS = CreateObject("scripting.filesystemobject")
Set FolderC = FOS.GetFolder("C:\Documents and Settings\AAAAA\デスクトップ\TEST")
Set FilesC = FolderC.Files
Path_Name = "C:\Documents and Settings\AAAAA\デスクトップ\TEST\"
For Each FileC In FilesC
FileName = FileC.Name
Workbooks.Open FileName:=Path_Name & FileName
ActiveWorkbook.Worksheets(1).Select
With Application
.SendKeys "^{P}", True
.SendKeys "%r", True
.SendKeys "^{tab}", True
.SendKeys "{tab 3}", True
End With
ActiveWorkbook.Close False
Next
Set FOS = Nothing
End Sub
お礼
ありがとうございます SendMessageなどで文字を入れるにはどうしたらいいのでしょうか? 値を入れるところは(ハンドルの次の所) int型の様で.....すいません初心者で VB?C#系ではSendKeys.Send("c");でcの文字を送れるのですが.......... よろしくお願いいたします
補足
WM_CHARにして何とか行きましたありがとうございました