VBA Code to print a file 2

[chewza]

I am trying to write vba code to print (to a printer) a pdf file.

Any one know how??

 

[Rolliee]

Without a ACCESS pdf ADD-In I imagine you will have to write to a 'txt' file and then open the PDF engine as an APP.

rollie@bwsys.net

 

[comaboy]

Use the API !

The ShellExecute function is a godsend for this. It basically helps with filetypes and extensions.

Put the following in your Declarations section...

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

...and in your code...

PrintAnything(strFile as String)
strAction = "print" ' or open, or whatever 
ShellExecute(0, strAction, strFile ,"" ,"" ,1)
End Function

 

[nat1967]

hi anick,

also check out:

http://www.mvps.org/access/reports/rpt0011.htm

HTH



Have A Great Day!!!,

Nathan
Senior Test Lead

 

[chewza]

Thanks guys - all the above is great!

 

[Rolliee]

comaboy,

I tried this with the declaration in module1 and the remainder in a clickbutton on click code. It compiled nicely and then did nothing. Not even a burp from the printer.

Any ideas. This looks like a great tool!!!

Rollie E

 

[comaboy]

OK, I went off a bit half-cocked! That'll teach me, hehe. Try the code below. BTW, if the return code (x = shellexe..)
is less than 32, an error occured.

'In a module...
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



' In your form...
'This code modified by comaboy from original code of...
    'KPD-Team 1998
    'URL: [URL unfurl="true"]http://www.allapi.net/[/URL]
    'E-Mail: KPDTeam@Allapi.net
    'Send an E-Mail to the KPD-Team
'The guys at allapi are sooo cool for their docs on the API!!
Sub PrintAnything(strFile As String)
    Dim x As Long
    strAction = "print" ' or open, or whatever
    x = ShellExecute(Me.hwnd, strAction, strFile, "", "", 1)
    MsgBox CStr(x)' see if an error occured!
End Sub

Private Sub Form_Load()
    PrintAnything "C:\Documents and Settings\Administrator\My Documents\cmcmapa4.pdf"
    PrintAnything "c:\test.doc" ' or whatever
    PrintAnything "c:\mapa4.pdf"' or whatever
    End
End Sub

Leave in the ALLAPI bits. I'd be lost without the API-Guide!