J
john
I'm using this Code which I think I got from the Dev Ashish site but don't
remember.
It prints everything ok but I need to break up the Pages to single files
each and save them for later invoice attachments.
Any Thoughts on how to do it?
Public Sub PrintThisFile(FileName As String)
Dim X As Long
X = ShellExecute(hWndAccessApp, "Print", FileName, vbNullString, 0&,
SW_SHOWNORMAL)
DoEvents
End Sub
Here is the General Module Code:
Public Const SW_SHOWNORMAL = 1
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
remember.
It prints everything ok but I need to break up the Pages to single files
each and save them for later invoice attachments.
Any Thoughts on how to do it?
Public Sub PrintThisFile(FileName As String)
Dim X As Long
X = ShellExecute(hWndAccessApp, "Print", FileName, vbNullString, 0&,
SW_SHOWNORMAL)
DoEvents
End Sub
Here is the General Module Code:
Public Const SW_SHOWNORMAL = 1
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