How to print worksheets from a different work book?

[Ivn68]

Private sub command button1_click()
If Range("J15").value=4 then
Workbooks("c:\ tournament\bad beat\ receipt file.xlsm").worksheets(array("1","2","3","4")).printout
Else
End if
End sub

Says script out of range

 

[DanteAmor]

Try this.
First open the workbook.


Check the name of the book and its sheets.

[COLOR=#333333]If Range("J15").value=4 then[/COLOR]
[COLOR=#333333]   Workbooks("receipt file.xlsm").Sheets(array("1","2","3","4")).printout[/COLOR]

[COLOR=#333333]End if[/COLOR]

 

[jolivanes]

Is that number 4 from cell J15 the first four sheets to be printed? Or the actual sheet names.
If it is the first four sheets, this should work.

Sub Maybe()
Dim wb1 As Workbook, wb2 As Workbook, i As Long
Application.ScreenUpdating = False
Set wb1 = ThisWorkbook
Set wb2 = Workbooks.Open("c:\ tournament\bad beat\ receipt file.xlsm")
    For i = 1 To wb1.Sheets("Sheet1").Range("J15").Value    '<---- Change sheet name to actual name
        wb2.Sheets(i).PrintOut
    Next i
wb2.Close False
Application.ScreenUpdating = True
End Sub

If the numbers are actual sheet names (that is what it looks like) you'll have to change it to what DanteAmor showed you

 

[Ivn68]

I named the sheets "1" "2" "3" "4"
I don't have to put in the whole file name where it's located? Like the "c:" drive part?

 

[Ivn68]

Sooo what I'm trying to do is I have a main sheet where I enter all this data. Afterwards I have a button on the sheet and it prints all the receipts I need. I want the receipts to be in a separate worrkbook
So when I save the main work sheet it doesn't have to save the copies of the receipts. I don't want to waste space
Does that make any sense?

 

[jolivanes]

Could you explain step by step what you want to do?
Include ranges, sheets, where to store usw usw.