[VBA/ACCESS] Problema con ShellExecute e stampe

[predator80]

Devo creare una procedura che mi permetta di stampare direttamente qualsiasi tipo di file senza aprire il programma del file.
esempio:
scelgo di stampare il file a.doc premo stampa e ottengo subito la stmpa senza a aprire word...

Prima ho creato questo modulo:

Option Compare Database
Option Explicit

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)
Public Enum StartWindowState
START_HIDDEN = 0
START_NORMAL = 4
START_MINIMIZED = 2
START_MAXIMIZED = 3
End Enum

Public Function ShellDocument(sDocName As String, _
Optional ByVal Action As String = "Open", _
Optional ByVal Parameters As String = vbNullString, _
Optional ByVal Directory As String = vbNullString, _
Optional ByVal WindowState As StartWindowState) As Boolean
Dim Response
Response = ShellExecute(&O0, Action, sDocName, Parameters, Directory, WindowState)
Select Case Response
Case Is < 33
ShellDocument = False
Case Else
ShellDocument = True
End Select
End Function


Poi nella maschera richiamo così:

ShellDocument "a.pdf", "Print", , , 0

però nn funziona bene perchè mi rimane acrobat ridotto a icona in basso perchè?

poi nn funziona con tutti i tipi di file cosa devo fare?

Grazie

[mgmg]

Forse perchè passi WindowState = 0 (HIDDEN)? Prova a scrivere 4 = START_NORMAL o 3 = START_MAXIMIZED

Ciao

[predator80]

Originariamente inviato da mgmg
Forse perchè passi WindowState = 0 (HIDDEN)? Prova a scrivere 4 = START_NORMAL o 3 = START_MAXIMIZED

Ciao

è uguale poi con certi tipi di file nn mi stampa nemmeno...
usando il createobject potrebbe funzionare nessuno si è mai trovato in questa sistuazione?

[predator80]

Altro problema per stampare file word che sono protetti da password come si fa usando la shellexecute?