HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2021
0212
弘中ExcelのComオブジェクトを用いてエクセルファイルの印刷を行いたい4解決


弘中

リンク

2021/2/12(Fri) 18:16:11|NO.92255

前回、あまり有意義な回答が頂けなかったので、少し質問内容を変更して、
スクリプトを調整して再度質問させてください。

エクセルファイルを読み込みし、そのファイルを印刷したいと考えて居ます。
確認には
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



この記事に返信する


バグ?

リンク

2021/2/13(Sat) 11:51:55|NO.92260

またバグかも



TOMATO

リンク

2021/2/13(Sat) 15:41:16|NO.92263

Office 365 Version 2101 にて動作確認。
(Microsoft 365 Apps for business)


#uselib "user32.dll" #func SetWindowPos "SetWindowPos" sptr, sptr, sptr, sptr, sptr, sptr, sptr newcom Application, "Excel.Application" ;----- Excelのウィンドウハンドルを取得し前面に出す(WindowsVista対応) ---- Excel_hwnd = Application("Hwnd") 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 プロパティ /***********************************************************************************/ myname = "test.xls" fname = "D:\\HSP_WORKS\\ExcelAllPrint\\"+myname exist fname if ( strsize == -1 ) : dialog ""+fname+"を開けません。もう一度ファイルを確認してください。",1,"Error" : end comres ActiveWorkbook Workbooks->"Open" fname ;----------------- 印刷設定 --------------- ActiveWorkbook->"PrintOut" stop *owari Workbooks->"close" Application->"quit" end



リンク

2021/2/13(Sat) 19:03:47|NO.92265

せめて古い方を削除しないと



弘中

リンク

2021/2/14(Sun) 09:43:20|NO.92266

TOMATO さま

ご指導ありがとうございます。
問題無く動きました。ありがとうございました。
comres使わないと駄目だったんですね。


? さま
質問の仕方が悪いと思い少し内容を変えて投稿しました
もう一個の方は削除しました、
すみません。



ONION software Copyright 1997-2021(c) All rights reserved.