Bilder Mail Attachments drucken

Sam85 · 7. Juni 2019, 10:23

Hallöchen,

ich habe eine Frage. Ich will über ein Outlook Makro unter anderen Bilder direkt ausdrucken. Nun wird bei einem Bild erstmal die Windows Fotoanzeige geöffnet. Nun dachte ich, man könnte doch bestimmt auch mit der Shell Option direkt das "Senden an" ausführen? Gibt es diese Möglichkeit?

Spoiler anzeigen

Visual Basic-Quellcode

Private Sub PrintAttachments(otlMail As Outlook.MailItem)
Dim otlAttCounter As Outlook.Attachments
Dim otlAtt As Outlook.Attachment
Dim strFile As String
Dim strFileType As String
Dim strPrinterName As String
strUserName = Environ("UserName")
strFilePath = "C:\Users\" & strUserName & "\Desktop\Anlagen"
Call GetDefaultPrinterName(strPrinterName)
On Error Resume Next
If Dir(strFilePath, vbDirectory) = "" Then MkDir (strFilePath)
Set otlAttCounter = otlMail.Attachments
If otlAttCounter.Count Then
For Each otlAtt In otlAttCounter
strFileType = LCase$(Right$(otlAtt.FileName, 4))
Select Case strFileType
Case ".xls", ".xlsx", ".doc", ".docx", ".pdf"
strFile = ATTACHMENT_DIRECTORY & otlAtt.FileName
otlAtt.SaveAsFile (strFile)
ShellExecute 0, "print", strFile, vbNullString, vbNullString, 0
Case ".tif", ".jpg", ".jpeg", ".png"
strFile = ATTACHMENT_DIRECTORY & otlAtt.FileName
otlAtt.SaveAsFile (strFile)
ShellExecute 0, "printto", strFile, strPrinterName, vbNullString, 0
End Select
Next
End If
Set otlAttCounter = Nothing
End Sub

Sam85 · 7. Juni 2019, 14:01

Ich hab jetzt überlegt, dass über die normale Shell zu lösen. Wie kann ich das korrekt umsetzen, klappt irgendwie nicht.

Visual Basic-Quellcode

Shell "print C:\Users\testuser\Desktop\Bilder\test.png /c /d:" & strPrinterName

mumpel · 8. Juni 2019, 10:35

Hallo!

Mit ShellExecute. Im Beispielcode stelle ich vor dem Drucken den Drucker um und setze nach dem Drucken wieder auf den gewüschten Standarddrucker (eventuell muss man vor dem Zurücksetzen eine Wartezeit einbauen).

Visual Basic-Quellcode

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
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub PrintImages()
'Drucker wechseln
Shell "rundll32 printui.dll,PrintUIEntry /y /n ""Samsung ML-2850 Series (USB001)"""
'Drucken
ShellExecute 0, "print", Environ("USERPROFILE") & "\Documents\wbr.txt", 0, 0, 0
'Wartezeit bis zum Zurücksetzen des Druckers
' Slepp 1500
'Drucker wiederherstellen
Shell "rundll32 printui.dll,PrintUIEntry /y /n ""Samsung CLP-320 Series (USB002)"""
End Sub

Gruß, René

Sam85 · 11. Juni 2019, 09:50

@mumpel

Hallöchen,

ja mit PDF und Textdokumenten scheint das auch kein Problem zu sein...erst bei Bildern. Habe dafür was mit Irfanview gefunden, dafür kann man wohl Parameter in CMD mitgeben und das klappt auch (vorher wurde immer der PictureViewer geöffnet und ich wollte einfach nur direkt drucken).
Jetzt habe ich noch ein weiteres Problem. Ich würde auch gerne den Adobe Reader nach dem Druck schließen, er druckt zwar aber Adobe bleibt offen. Wenn ich den TaskKill verwende kommt es aber gar nicht erst zum Druck. Hat da jemand einen Kniff übrig?

Visual Basic-Quellcode

#If VBA7 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As LongPtr) As LongPtr
Public Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As LongPtr)
#Else
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
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
#End If
Const strFilePath As String = "C:\Anlagen"

Visual Basic-Quellcode

Public Sub PrintSelectedAttachments()
Dim otlExplorer As Outlook.Explorer
Dim otlSelection As Outlook.Selection
Dim obj As Object
Set otlExplorer = Application.ActiveExplorer
Set otlSelection = otlExplorer.Selection
For Each obj In otlSelection
If TypeOf obj Is Outlook.MailItem Then PrintAttachments obj
Next
Set otlSelection = Nothing
Set otlExplorer = Nothing
Sleep 2000
Shell "TaskKill /im acrobat.exe /f"
Shell "TaskKill /im acrord32.exe /f"
End Sub

Visual Basic-Quellcode

Private Sub PrintAttachments(otlMail As Outlook.MailItem)
Dim otlAttCounter As Outlook.Attachments
Dim otlAtt As Outlook.Attachment
Dim strFile As String
Dim strFileType As String
Dim strPrinterName As String
Call GetDefaultPrinterName(strPrinterName)
On Error Resume Next
If Dir(strFilePath, vbDirectory) = "" Then MkDir (strFilePath)
Set otlAttCounter = otlMail.Attachments
If otlAttCounter.Count Then
For Each otlAtt In otlAttCounter
strFileType = LCase$(Right$(otlAtt.FileName, 4))
Select Case strFileType
Case ".xls", ".xlsx", ".doc", ".docx", ".pdf"
strFile = attachment_directory & otlAtt.FileName
otlAtt.SaveAsFile (strFile)
ShellExecute 0, "print", strFile, vbNullString, vbNullString, 0
Case ".tif", ".jpg", ".jpeg", ".png"
strFile = attachment_directory & otlAtt.FileName
otlAtt.SaveAsFile (strFile)
Shell "C:\Program Files\IrfanView\i_view64.exe " & """" & strFilePath & "\" & strFile & """" & " /print=" & strPrinterName
End Select
Kill (strFilePath & strFile)
Next
End If
Set otlAttCounter = Nothing
End Sub

Visual Basic-Quellcode

Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" ( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As LongPtr) As Long
#Else
Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" ( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) As Long
#End If
Public Sub GetDefaultPrinterName(strPrinterName As String)
Dim strBuffer As String
Dim lngBuffer As Long
Dim lngReturn As Long
strBuffer = Space(8192)
lngReturn = GetProfileString("windows", "device", "", strBuffer, Len(strBuffer))
If lngReturn Then
strBuffer = Mid$(strBuffer, 1, lngReturn)
lngBuffer = InStr(strBuffer, ",")
strPrinterName = Mid$(strBuffer, 1, lngBuffer - 1)
Else
strPrinterName = ""
End If
End Sub

EDIT:
Wundervoll habe das Sleep eingebaut mit 2000 Millisekunden und damit läuft es auch mit TaskKill (bei 1500 hatte es nicht mehr gedruckt) :).

EDIT2:
Letzte Woche ging das Drucken der Bilder noch, doch nun bekomme ich nur Fehlermeldungen...zu früh gefreut.

mumpel · 11. Juni 2019, 10:42

Schau mal in Dein Antivirenprogramm. Vielleicht wird da etwas blockiert.

Wie lauten denn die Fehlermeldungen?

Sam85 · 11. Juni 2019, 10:50

Seltsam ist, über die CMD kommt derselbe Fehler. Aber wenn ich das Bild einfach mit Irfan öffne, öffnet er es.

EDIT: Habe kein natives Antivirenprogramm (Avira, etc.) die Domäne wird von der Sophos UTM überwacht. Kann ich da etwas schauen?

mumpel · 11. Juni 2019, 10:57

Da hat IrfanView ein Problem. Definiere ein anderes Programm als Standard-Anzeigeprogramm. Z.B. die "Windows Fotoanzeige".

Mal davon abgesehen lese ich in der Fehlermeldung, dass ein Slash fehlt. In der Meldung steht "C:Anlagen...", korrekt wäre "C:/Anlagen"

Sam85 · 11. Juni 2019, 11:07

Ja den Slash hab ich auch gesehen

aber dann nochmal mit Slash getestet auch in der CMD...dennoch die gleiche Meldung.
Ich habe IrfanView auch nicht als Standardprogramm...So ein Mistk, Freitag lief das noch.

EDIT:
Ok in der CMD C:\Program Files\IrfanView>i_view64.exe "C:/Anlagen/zwei.tif" /print. Es liegt wohl an den Gänsefüsschen.
Hab es in Post 4 angepasst, lag an den Gänsefüsschen...ich könnte mich Ohrfeigen.

Jetzt müsste er nur wirklich auch den Standard Drucker verwenden.

mumpel · 11. Juni 2019, 11:43

Da musst Du mal IrfanView reparieren.

Sam85 · 11. Juni 2019, 11:50

@mumpel

Visual Basic-Quellcode

Shell "rundll32 printui.dll,PrintUIEntry /y /n ""Samsung ML-2850 Series (USB001)"""

Kann ich da auch den Default Printer ansteuern ohne den gesamten Drucker Namen?

mumpel · 11. Juni 2019, 11:55

Wenn Du den Standarddrucker nutzen möchtest kannst Du die beiden Codezeilen für das Ändern des Druckers weglassen.

Sam85 · 11. Juni 2019, 12:03

Ich nutze das ja aktuell so...

Visual Basic-Quellcode

Shell "C:\Program Files\IrfanView\i_view64.exe " & """" & strFilePath & "\" & strFile & """" & " /print=" & strPrinterName

Dann wählt aber nicht den Standard Drucker aus, obwohl strPrinterName diesen ausgibt.
Lass ich nur print stehen (laut Doku wählt er dann den Standard Drucker) wählt er den immer noch nicht aus.
Komischerweise halt nur bei den Bildern. Bei den PDFs wählt er den Standard Drucker.

EDIT:
Oh man, der Standarddrucker steht drin aber er wechselt das Fach einfach automatisch. Nun hab ich es in IrfanView festgelegt. Klappt....dabei ist der Drucker Extra am Papier orientiert.

mumpel · 11. Juni 2019, 12:04

Wenn Du mit ShellExecute arbeitest funktioniert das normalerweise auch.

Sam85 · 11. Juni 2019, 12:18

Ja das benutze ich bei den PDFs, bei Bildern öffnet er für jedes Bild den Viewer und wartet auf weitere Befehle und das wollte ich umgehen. Und mit IrfanView druckt er mir einfach das Bild ohne weitere Klicks.

mumpel · 11. Juni 2019, 12:34

Wenn Du IrfanView direkt per Shell ansprechen möchtest musst Du die Gänzefüßchen beim Druckenamen doppeln, oder Du verwendest das Hochkomma.

Visual Basic-Quellcode

Sub PrintImagesZwei()
Dim strBildname As String
Dim strPrintername As String
strBildname = "C:\Users\René\Desktop\111220181540\040220191320\" & _
"H0_Spielanlage\Signalpläne" & _
"\Bremsmodul_mit_fernschalter_version_4.png"
strPrintername = "Samsung ML-2850 Series (USB001)"
Shell "C:\Program Files (X86)\IrfanView\i_view32.exe " & strBildname & " /print='" & strPrintername & "'"
End Sub

Sam85 · 11. Juni 2019, 13:09

Ja siehe mein Edit in Post 8

das mit dem Hochkomma sieht natürlich etwas übersichtlicher aus...sorry war etwas zu viel hin und her. Nun wieder ein anderes Problem. Jetzt war ich an einem anderen Rechner und da fängt das ganze wieder von Vorne an (die Fehlermeldung von vorhin mit dem Header). Könnte es sein, dass ich das IrfanView besser als 32-Bit Version nutzen sollte wenn ich Office 32-Bit verwende oder sollte das unerheblich sein?

mumpel · 11. Juni 2019, 13:19

Die Bit-Version von IrfanView ist egal, solange der Pfad und die Kommandozeile passen.

Sam85 · 11. Juni 2019, 13:28

Und kann das Outlook ja nach Bit Version die Hochkommata unterschiedlich lesen, bzw. noch andere Segmente im Code außer die, die bereits als solche gekennzeichnet sind?
Ich hab den Code (der bei mir läuft) exportiert und bei jemand anderen importiert aber läuft nicht, wie gesagt der Fehler, dass der Bild Header nicht geöffnet werden kann. Liegt das ggf. am Pfad?

mumpel · 11. Juni 2019, 13:31

Am Hochkomma liegt es nicht, das hat schon unter Windows 98 so funktioniert. VBA interpretiert das Hochkomma automatisch als Anführungszeichen. Da muss etwas anderes nicht passen.

Sam85 · 11. Juni 2019, 14:03

Seltsam ich habe es auch über die Console versucht. IrfanView öffnet die Datei und druckt sie auch. Dann habe ich mal einen festen Pfad im Code hinterlegt und der ging auch.
Aber dann mit der gesamten Routine (also Datei aus Email zwischen speichern dann drucken) lief woanders als bei mir nicht mehr....:(

EDIT:
Was mir aufgefallen ist, das zwischenspeichern der Routine scheitert bereits. Bei mir liegen die Dateien im Verzeichnis, halte ich das Löschen auf. Bei den anderen kommt es gar nicht erst soweit...
Gibt es da vielleicht etwas was zwischen den Bit-Versionen dazwischen funkt? Oder vielleicht dieses attachment_directory das meckert er auch an wenn ich Option Explicit setzte.

Spoiler anzeigen

Visual Basic-Quellcode

Const strFilePath As String = "C:\Anlagen"
Private Sub PrintAttachments(otlMail As Outlook.MailItem)
Dim otlAttCounter As Outlook.Attachments
Dim otlAtt As Outlook.Attachment
Dim strFile As String
Dim strFileType As String
Dim strPrinterName As String
Call GetDefaultPrinterName(strPrinterName)
On Error Resume Next
If Dir(strFilePath, vbDirectory) = "" Then MkDir (strFilePath)
Set otlAttCounter = otlMail.Attachments
If otlAttCounter.Count Then
For Each otlAtt In otlAttCounter
strFileType = LCase$(Right$(otlAtt.FileName, 4))
Select Case strFileType
Case ".xls", ".xlsx", ".doc", ".docx", ".pdf"
strFile = attachment_directory & otlAtt.FileName
otlAtt.SaveAsFile (strFile)
'ShellExecute 0, "print", strFile, vbNullString, vbNullString, 0
Case ".tif", ".jpg", ".jpeg", ".png"
strFile = attachment_directory & otlAtt.FileName
otlAtt.SaveAsFile (strFile)
'Shell "C:\Program Files\IrfanView\i_view64.exe " & """" & strFilePath & "\" & strFile & """" & " /print=" & strPrinterName
End Select
Next otlAtt
End If
Set otlAttCounter = Nothing
End Sub

Bilder Mail Attachments drucken

Bilder Mail Attachments drucken

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben