Open and print sheets in a workbook using vba

[Ivn68]

I want to be able to click a command button and the macro will open another work book and print the first 3 sheets in the new workbook

This is what I got so far

Private sub commandbutton_click()
If Range("A1").value=4 then
Workbooks.open "c:\work\april\ivan\dinner\reciepts.xlsm"
Workbooks(c:\work\april\ivan\dinner\reciepts.xlsm").worksheets(array("1","2","3","4")).printout

End sub

I get runtime error '9'
Subscript out of range

 

[shknbk2]

Try this:

Private Sub commandbutton_click()
    Dim wb As Workbook
    
    If Range("A1").Value = 4 Then
        Set wb = Workbooks.Open("c:\work\april\ivan\dinner\reciepts.xlsm")
        wb.PrintOut 1, 3
    End If
End Sub

If you're finding that the code doesn't work and you might not have the printout method properly set up, put the cursor on it (e.g., the word "printout") and hit F1 to go to the MS documentation for it.

 

[Fluff]

Susbscript out of range usually means that the sheet does not exist, if you want the first three sheets, try

Workbooks(c:\work\april\ivan\dinner\reciepts.xlsm").worksheets(array(1,2,3)).printout