出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[2332] Re:excelで印刷について
投稿者：北岳さん 2002/07/15 17:47:11
プリンタをサーバのレジストリに登録しないと（⇒cf:[2327]Re:ＰＤＦファイルの印刷方法）
サーバで印刷はダメなようです。（面倒そう。）
　
＜実験報告＞　
しかし、aspからでも、Server.CreateObjectなど使わず、auto_openマクロを書いたxls を単に読むだけなら、
EXCELは、スタンドアロンのジョブと勘違いして、印刷してくれそうな気がしますね。
うん、名案。やってみましょう。
　
「デスクトップとの対話を許可」してある、ASPEXEC
http://www.serverobjects.com/products.htm
をインストール済みの、IIS（2000pro）サーバで、
次のマクロ（excel97で作成）を書いたxlsを、実行権があるフォルダに置き、
（スタンドアロンなら、このxlsを呼ぶだけで、シートを印刷してくれることは、確認済み。）
　
--------- d:\aspfold\test.xls ---------
Sub auto_open()
Sheets(1).Select
Cells.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
----------------------------------------
　
1.aspから呼んだら、
　
--------------- 1.asp -----------------
<html><body>
<H3>ASPExec ExecuteWinAppAndWait Test</H3>
<%
Set Executor = Server.CreateObject("ASPExec.Execute")
Executor.Application = "d:\MSOffice\Office\Excel.exe"
Executor.Parameters = "d:\aspfold\test.xls"
Executor.TimeOut = 9000
Response.Write "Attempting to execute " & Executor.Application & "<br>"
intResult = Executor.ExecuteWinAppAndWait
if intResult = 0 then
Response.Write "Execution successful"
else
Response.Write "The result of this call was: " & intResult
end if
%>
</body></html>
-----------------------------------------
　
サーバ画面にtest.xls が立ち上がったものの、
「実行時エラー：プリンタが組み込まれていません･･･」が出ました。（う！気付かれた！）
結論：実験失敗。
　
************
>エクセルの操作でセルの内容をセンターにもってくる
>方法はどのようにしたらよいのでしょうか？
　
EXCEL-VBA の書き方は、マクロの自動記録を使えば、EXCELが教えてくれます。
excelで印刷について 　 アキラさん [2002/07/09 8:56:08] [2301]
　 Re:excelで印刷について 　 アキラさん [2002/07/09 11:28:11] [2302]
　 Re:excelで印刷について 　 北岳さん [2002/07/15 17:47:11] [2332]
　 　 Re:excelで印刷について 　 アキラさん [2002/07/23 12:40:47] [2349]
　 　 サーバでの印刷手順 　 北岳さん [2002/07/23 18:07:34] [2350]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ