スクリプトを調整して再度質問させてください。
エクセルファイルを読み込みし、そのファイルを印刷したいと考えて居ます。
確認には
test.xlsというファイルを用意してください。
printout命令を出して印刷したいと思いますがうまく印刷されません。
どこか間違っていますでしょうか?
ご確認よろしくお願い致します。
#uselib "user32.dll" #cfunc FindWindow "FindWindowA" sptr, sptr #func SetWindowPos "SetWindowPos" sptr, sptr, sptr, sptr, sptr, sptr, sptr newcom Application, "Excel.Application" ;----- Excelのウィンドウハンドルを取得し前面に出す(WindowsVista対応) ---- Caption= Application("Caption") Application("Caption")= "qwerabc" Excel_hwnd= FindWindow("XLMAIN", Application("Caption")) Application("Caption")= Caption SetWindowPos Excel_hwnd, HWND_TOP, 0, 0, 0, 0, $203 // SWP_NOMOVE | SWP_NOSIZE | SWP_NOOWNERZORDER ;------------------------------------------------------------------------ Application("Visible") = 1 // Excelウィンドウを表示 Application("DisplayAlerts")=1 // 警告メッセージ 表示しない WorkBooks= Application("WorkBooks") // Workbooks プロパティ ActiveWorkbook= WorkBooks("Add") // ワークブックを作成 Addはメソッド /***********************************************************************************/ //onerror *owari myname = "test.xls" fname = "D:\\HSP_WORKS\\ExcelAllPrint\\"+myname exist fname if ( strsize == -1 ) : dialog ""+fname+"を開けません。もう一度ファイルを確認してください。",1,"Error" : end WorkBooks->"Open" fname ;--------- ;----------------- 印刷設定 --------------- aaa= ActiveWorkbook("Printout") ActiveWorkbook->"PrintOut" // 印刷タイトルの設定 ;PageSetup("PrintTitleColumns")= "" ; 列 stop *owari WorkBooks -> "close" Application -> "quit" end