HSPTV!掲示板

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

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

またバグかも

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

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

TOMATO　さま

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


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