Print Excel file from command button

[araman]

Hello,

Is it possible to print an excel file from a command button?

Thanks
Lance

[nico5038]

Check out the Shell command.
This wil allow starting every application, for excel use the excel .exe and the steering parm with the filename to print it.

Nic;o)

[araman]

Check out the Shell command.
This wil allow starting every application, for excel use the excel .exe and the steering parm with the filename to print it.

Nic;o)

thanks, I will see if that works

[jaxjagfan]

I forget all the specifcs but within Access should be something like this:

Dim xlapp As Excel.Application
xlapp.Workbooks.Open "c:\myworkbook.xls"
xlapp.ActiveSheet.PrintOut
xlapp.Workbooks.Close

This would assume you wanted to print the active sheet (the one in view when you first open excel.

[ADezii]

Hello,

Is it possible to print an excel file from a command button?

Thanks
Lance

Place the following code in the Click() Event of a Command Button, make your own substitutions, then fire away. The code has been tested and is fully operational. Any questions, please feel free to ask

'1st ==> Set a Reference to the Microsoft Excel X.X Object Library
 
Dim strPathToExcel As String, strSpreadsheetName As String
Dim strWorksheetName As String
 
Dim ExcelApp As New Excel.Application
Dim ExcelBook As New Excel.Workbook
Dim ExcelSheet As New Excel.Worksheet
 
'******* Substitute your own values ********
strPathToExcel = "C:\Test\"               '*
strSpreadsheetName = "Employees.xls"      '*
strWorksheetName = "Employees"            '*
'*****************************************'*
 
'Let's not see what is going on
ExcelApp.Visible = False
 
Set ExcelBook = ExcelApp.Workbooks.Open(strPathToExcel & strSpreadsheetName)
Set ExcelSheet = ExcelBook.Worksheets(strWorksheetName)
 
ExcelSheet.PrintOut
 
ExcelApp.Quit
Set ExcelApp = Nothing

[araman]

Place the following code in the Click() Event of a Command Button, make your own substitutions, then fire away. The code has been tested and is fully operational. Any questions, please feel free to ask

'1st ==> Set a Reference to the Microsoft Excel X.X Object Library
 
Dim strPathToExcel As String, strSpreadsheetName As String
Dim strWorksheetName As String
 
Dim ExcelApp As New Excel.Application
Dim ExcelBook As New Excel.Workbook
Dim ExcelSheet As New Excel.Worksheet
 
'******* Substitute your own values ********
strPathToExcel = "C:\Test\"               '*
strSpreadsheetName = "Employees.xls"      '*
strWorksheetName = "Employees"            '*
'*****************************************'*
 
'Let's not see what is going on
ExcelApp.Visible = False
 
Set ExcelBook = ExcelApp.Workbooks.Open(strPathToExcel & strSpreadsheetName)
Set ExcelSheet = ExcelBook.Worksheets(strWorksheetName)
 
ExcelSheet.PrintOut
 
ExcelApp.Quit
Set ExcelApp = Nothing

Thank you very much,

that is what i was looking for


Lance

[araman]

Thank you very much,

that is what i was looking for


Lance

i get an error at

Dim ExcelApp As New Excel.Application

That says
compile error
user defined type not defined

[ADezii]

i get an error at

Dim ExcelApp As New Excel.Application

That says
compile error
user defined type not defined

You probably forgot to set a Reference to the Microsoft Excel X.X Object Library

[araman]

You probably forgot to set a Reference to the Microsoft Excel X.X Object Library

Thanks for the reply.

How would I do that?

[araman]

Thanks for the reply.

How would I do that?

ok figured out how to set the reference.

Now it stops saying the file cannot be found ...the path it show is the location of excel+the path to the file 'c:\excel\c:\documents\file.xls cannot be found'

[jaxjagfan]

ok figured out how to set the reference.

Now it stops saying the file cannot be found ...the path it show is the location of excel+the path to the file 'c:\excel\c:\documents\file.xls cannot be found'

Post your code

the "c:" cannot exist twice in the path. You don't have to give the path to excel, just the excel spreadsheet

[araman]

Post your code

the "c:" cannot exist twice in the path. You don't have to give the path to excel, just the excel spreadsheet

I removed what's in bold before i got your reply and it worked. any downside to that?

Set ExcelBook = ExcelApp.Workbooks.Open(strPathToExcel & strSpreadsheetName)

[jaxjagfan]

I removed what's in bold before i got your reply and it worked. any downside to that?

Set ExcelBook = ExcelApp.Workbooks.Open(strPathToExcel & strSpreadsheetName)

What was meant by the code you were given.
strPathToExcel is just the path to the document
strSpreadsheetName is just the name of the document.

If you put it all in one string and removed the other - it's not a problem.

[araman]

What was meant by the code you were given.
strPathToExcel is just the path to the document
strSpreadsheetName is just the name of the document.

If you put it all in one string and removed the other - it's not a problem.

I see, I thought strPathtoExcel was to the excel.exe. That make sense now.

Thanks to all for the help