VB6からExcelシートを印刷するとエラー発生 (ID:120218)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 私のPCでは同じコードでやってもエラー出ませんけど・・・。 ちなみに win2000 Excel200 VB6SP6ですけど。 Execelのオブジェクトライブラリやめて 同じ事だけど・・・。下記のコードでは？？いかがでしょう？ Private Sub Command1_Click() Dim ObjExcel As Object Set ObjExcel = CreateObject("Excel.Application") ObjExcel.Workbooks.Open "c:\hoge.xls" ObjExcel.Visible = True 'excelへの編集 With ObjExcel.Sheets("Sheet1") .Cells(8, 2) = "testA" .Cells(5, 2) = "testb" .Cells(5, 3) = "testc" .Cells(5, 4) = "testd" .Cells(4, 3) = "teste" .Cells(4, 4) = "testf" '印刷 .PrintOut End With 'ｅｘｃｅｌの終了 ObjExcel.DisplayAlerts = False '保存ダイアログを出さない(保存しない) ObjExcel.Quit 'オブジェクトの開放 Set ObjExcel = Nothing End Sub