Ref. Access Forum PDF frågan.

Fae..... det här var mycket lurigare än jag tänkte. Kul att få gnugga hjärnan.
Jag ger mig i princip aldrig.
Kan man verkligen inte köra princip PrintFile från VB6 VBA kod ?

Finns det något lurigt API som löser problemmet.?
Kan man köra API från VBA ?

http://www.codeforexcelandoutlook.com/blog/2010/02/open-or-print-files-in-vba/

<code>
' adapted from Access 2003 VBA Programmer's Reference
Public Enum actionType
openfile
printfile
End Enum

Public Const SW_SHOWNORMAL As Long = 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

Function ExecuteFile(fileName As String, action As actionType)
' action can be either "Openfile" or "Printfile".

Dim sAction As String

Select Case action
Case 0 ' openfile
sAction = "Open"
Case 1 ' printfile
sAction = "Print"
End Select

ShellExecute 0, sAction, fileName, vbNullString, "", SW_SHOWNORMAL
End Function

Sub TestPrint()
' open a file
ExecuteFile "C:\MyFile.xls", openfile
' print another
ExecuteFile "C:\MyPDF.pdf", printfile
End Sub
</code>

</code>

Guld Pelle.

Har varit inne på något liknande men får inte till det med ShellExecute.
Skall testa. Tror inte att ShellExecute köper .rtf filer.

ShellExecute öppnar väl filerna som om användaren hade klickat på dom? Dvs är filändelsen associerad med något program så borde det inte vara några problem.


Thomas

mmm. så är det ju fast det funkar inte mot .pdf och Acrobat Reader.

Jag är mest intresserad av <b>printfile</b> trodde det skulle rikta filen till den valda Printern.

Men så är det nog inte. Det verkar som att den printar ut Asciii på aktuell textplatta.

Jo det fungerar utmärkt med .pdf mot AR (om pdf är associerad med AR)

Välj printer först och sedan:

ShellEx "myfile.pdf", sOperation:="print", Owner:=Me.hWnd

/PeO

Tusen Tack skall jag testa direkt, Lite skillnad mot vad jag testat.
<code>
ShellExecute 0, "print", "test.pdf", vbNullString, "", SW_SHOWNORMAL
</code>

Var tusan skulle jag ha hittat denna variant ?

<code>
ShellEx "myfile.pdf", sOperation:="print", Owner:=Me.hWnd
</code>

Försökte följa din instruktion men det sket sig.
Så här skrev jag
<code>
Dim ret As Long
ret = ShellExecute("C:\Test.rtf", "Print", Me.hWnd)
</code>
Argument not optional

Ahhh Per-Oskar.

Du hänvisar till en kod som ligger i en SubRutin som jag inte ser koden till.

Den hjälpen var värdelös, tänkte väl att det såg för enkelt ut.

Shit Men ! det går tydligen inte att skicka .rtf till en Printer för utskrift. Eller ?

För att vara djä... tydlig . Jag vill skicka en .rtf till min dafault Printer för utskrift.

Sorry, missade att få med suben:

<code>
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

Private Declare Function ShellExecuteForExplore Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, lpParameters As Any, _
lpDirectory As Any, ByVal nShowCmd As Long) As Long

Public Enum EShellShowConstants
essSW_HIDE = 0
essSW_MAXIMIZE = 3
essSW_MINIMIZE = 6
essSW_SHOWMAXIMIZED = 3
essSW_SHOWMINIMIZED = 2
essSW_SHOWNORMAL = 1
essSW_SHOWNOACTIVATE = 4
essSW_SHOWNA = 8
essSW_SHOWMINNOACTIVE = 7
essSW_SHOWDEFAULT = 10
essSW_RESTORE = 9
essSW_SHOW = 5
End Enum

Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
Private Const SE_ERR_ACCESSDENIED = 5 ' access denied
Private Const SE_ERR_ASSOCINCOMPLETE = 27
Private Const SE_ERR_DDEBUSY = 30
Private Const SE_ERR_DDEFAIL = 29
Private Const SE_ERR_DDETIMEOUT = 28
Private Const SE_ERR_DLLNOTFOUND = 32
Private Const SE_ERR_FNF = 2 ' file not found
Private Const SE_ERR_NOASSOC = 31
Private Const SE_ERR_PNF = 3 ' path not found
Private Const SE_ERR_OOM = 8 ' out of memory
Private Const SE_ERR_SHARE = 26


Public Function ShellEx( _
ByVal sFIle As String, _
Optional ByVal eShowCmd As EShellShowConstants = essSW_SHOWDEFAULT, _
Optional ByVal sParameters As String = "", _
Optional ByVal sDefaultDir As String = "", _
Optional sOperation As String = "open", _
Optional Owner As Long = 0 _
) As Boolean

Dim lR As Long
Dim lErr As Long, sErr As Long
If (InStr(UCase$(sFIle), ".EXE") <> 0) Then
eShowCmd = 0
End If
On Error Resume Next
If (sParameters = "") And (sDefaultDir = "") Then
lR = ShellExecuteForExplore(Owner, sOperation, sFIle, 0, 0, essSW_SHOWNORMAL)
Else
lR = ShellExecute(Owner, sOperation, sFIle, sParameters, sDefaultDir, eShowCmd)
End If
If (lR < 0) Or (lR > 32) Then
ShellEx = True
Else
' raise an appropriate error:
lErr = vbObjectError + 1048 + lR
Select Case lR
Case 0
lErr = 7: sErr = "Out of memory"
Case ERROR_FILE_NOT_FOUND
lErr = 53: sErr = "File not found"
Case ERROR_PATH_NOT_FOUND
lErr = 76: sErr = "Path not found"
Case ERROR_BAD_FORMAT
sErr = "The executable file is invalid or corrupt"
Case SE_ERR_ACCESSDENIED
lErr = 75: sErr = "Path/file access error"
Case SE_ERR_ASSOCINCOMPLETE
sErr = "This file type does not have a valid file association."
Case SE_ERR_DDEBUSY
lErr = 285: sErr = "The file could not be opened because the target application is busy. Please try again in a moment."
Case SE_ERR_DDEFAIL
lErr = 285: sErr = "The file could not be opened because the DDE transaction failed. Please try again in a moment."
Case SE_ERR_DDETIMEOUT
lErr = 286: sErr = "The file could not be opened due to time out. Please try again in a moment."
Case SE_ERR_DLLNOTFOUND
lErr = 48: sErr = "The specified dynamic-link library was not found."
Case SE_ERR_FNF
lErr = 53: sErr = "File not found"
Case SE_ERR_NOASSOC
sErr = "No application is associated with this file type."
Case SE_ERR_OOM
lErr = 7: sErr = "Out of memory"
Case SE_ERR_PNF
lErr = 76: sErr = "Path not found"
Case SE_ERR_SHARE
lErr = 75: sErr = "A sharing violation occurred."
Case Else
sErr = "An error occurred occurred whilst trying to open or print the selected file."
End Select

Err.Raise lErr, , App.EXEName & ".GShell", sErr
ShellEx = False
End If

End Function
</code>