MsgBox Print

[ra_weiss]

Oh, me-oh-my, what have I screwed up this time?

Dim MyFile As String


MsgResult = MsgBox("BOOM! You're done. Print Copies?", vbYesNo, "")
If MsgResult = vbYes Then
MyFile = Dir("C:\Documents and Settings\*i*.xls")
Do While MyFile <> ""
    Worksheet.PrintOut Filename:=MyFile ActivePrinter:="Canon MX320 series Printer"
    MyFile = Dir()
Loop
Else: End If

Why is "Worksheet.PrintOut Filename:=MyFile ActivePrinter:="Canon MX320 series Printer" rejected? Thanks.

 

[ra_weiss]

Or even "Worksheet.PrintOut MyFile ActivePrinter:="Canon MX320 series Printer"

 

[Norie]

What is Worksheet?

 

[ra_weiss]

Hey, Norie. What do you mean, what is worksheet?

BTW, I applied your sumif suggestion yesterday. Along with a few conditional formats it wrks like a dream!

 

[Norie]

Well what is it?

A variable?

Is it supposed to be a reference to something? Perhaps the workbooks you aren't opening?

 

[stnkynts]

What Norie is saying is that Worksheet should be Worksheets

 

[ra_weiss]

Oh, that Norie!

Will try

 

[ra_weiss]

Method 'Printout' of object 'Sheets' failed.

 

[Norie]

Assuming the code is meant to find files with name that matches a pattern (*i*) and extension (xls), open them and then print them:

Option Explicit
 
Sub Printer()
Dim wbOpen As Workbook
Dim MyFile As String
 
    MsgResult = MsgBox("BOOM! You're done. Print Copies?", vbYesNo, "")
 
    If MsgResult = vbYes Then
 
        MyFile = Dir("C:\Documents and Settings\*i*.xls")
 
        Do While MyFile <> ""
 
            Set wbOpen = Workbooks.Open(MyFile)
 
            wbOpen.Worksheets.PrintOut ActivePrinter:="Canon MX320 series Printer"
 
            wbOpen.Close SaveChanges:=False
 
            MyFile = Dir()
 
        Loop
 
    End If
 
End Sub

Note this is a big guess, and I can't really test it because my wireless printer isn't particularly good at being wireless.

 

[ra_weiss]

You're close. Actually, this dumb print command is at the back end of another sub already, one which just calculated the 2 workbooks I want printed. But for the life of me, I can't get focus on them or put them in a variable.

You have to excuse me, I'm picking this stuff back up again after not touching it for many years. I'm guessing it will take you -2 seconds to get these two workbooks printed via msgbox.

    ActiveWorkbook.SaveAs "C:\Documents and Settings\" & Format(Now(), "mm-dd-yyyy") & " Invoice ", FileFormat:=56
        ActiveWorkbook.Close savechanges:=True
    ActiveWorkbook.SaveAs "C:\Documents and Settings\" & Format(Now(), "mm-dd-yyyy") & " Equipment Sheet ", FileFormat:=56
        ActiveWorkbook.Close savechanges:=True

Let MyFile = Dir("C:\Documents and Settings\*i*.xls")

MsgResult = MsgBox("BOOM! You're done. Print Copies?", vbYesNo)
If MsgResult = vbYes Then
    Do While MyFile <> ""
    Worksheets.PrintOut , MyFile, ActivePrinter:="Canon MX320 series Printer"
    MyFile = Dir()
Loop
Else: End If