Why is this not working?

[joltremari]

Could someone tell me why this is not printing.

Private Sub Command1_Click()

Dim O As Object
Set O = CreateObject("excel.application")
O.Visible = True
O.DisplayAlerts = False
O.Workbooks.Open App.Path & "\Invoice.xls"

O.ActiveWorkbook.SaveAs App.Path & "\New Workbook.xls"

O.Range("B3").Value = "test"



O.ActiveWindow.Sheet1.PrintOut Copies:=1

O.ActiveWorkbook.Close Savechanges:=False
O.Quit



I get an error on this line:

O.ActiveWindow.Sheet1.PrintOut Copies:=1

Any Help?

JO

[Microbasic]

It's not working because you don't access a sheet using .sheet1.

Private Sub Command1_Click()

Dim O As New Excel.Application, s As Worksheet
O.Visible = True
O.DisplayAlerts = False
O.Workbooks.Open App.Path & "\Invoice.xls"

O.ActiveWorkbook.SaveAs App.Path & "\New Workbook2.xls"

O.Range("B3").Value = "test"



Set s = O.ActiveWindow.ActiveSheet
s.PrintOut Copies:=1

O.ActiveWorkbook.Close Savechanges:=False
O.Quit

End Sub

[joltremari]

Thank you!!

JO