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]

Does DIR allow *i*.xls? I read that it may not.

 

[Norie]

Yes it does allow that.

Where did you read that it didn't?

I've just checked as well.

 

[ra_weiss]

Weird. When I add " MsgBox MyFile" following your code "MyFile = Dir("C:\Documents and Settings\~\*i*.xls")" it comes back with the found "equipment Sheet.xls", but when I click "ok" on that msgbox, continuing your code, I'm prompted with it cannot find "equipment sheets.xls".

What is wrong with this picture?

 

[ra_weiss]

It is there

Do While MyFile <> ""
MsgBox MyFile, vbInformation

Returns "05-26-2011 Equipment Sheet.xls", at least, is found

"Set wbOpen = Workbooks.Open(MyFile)"
MsgBox wbOpen, vbInformation

Fails, indicating "05-26-2011 Equipment Sheet.xls" cannot be found. Check spelling, etc.

 

[Norie]

Dir only returns the filename, so you need to add the path.

strPath = "C:\Documents and Settings\"
 
Set wbOpen = Workbooks.Open(strPath & MyFile)

Change the path/folder as needed.

 

[ra_weiss]

Hey, you're alive! Will try..

 

[ra_weiss]

Weird. When I add " MsgBox MyFile" following your code "MyFile = Dir("C:\Documents and Settings\~\*i*.xls")" it comes back with the found "equipment Sheet.xls", but when I click "ok" on that msgbox, continuing your code, I'm prompted with it cannot find "equipment sheets.xls".

What is wrong with this picture?

Dir only returns the filename, so you need to add the path.

strPath = "C:\Documents and Settings\"
 
Set wbOpen = Workbooks.Open(strPath & MyFile)

Change the path/folder as needed.

You're a genius, my man. Next question:

Seriously? Wow, I can't say if I'd be more at peace or scared out of my wits being your neighbor. Actually, I'd probably be drinking heavily in either case

Thank you again.