Druckerwechsel ... PDF ausdrucken

Sub pdf() Product = "V:\Test.pdf" ShellExecute 0, "open", Product, "", "", SHOWMAXIMIZED ShellExecute 0, "print", Product, "", "", SHOWMAXIMIZED ShellExecute 0, "exit", Product, "", "", SHOWMAXIMIZED End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo meine Liebe,
gut so:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Sub Sleep Lib "kernel32.dll" ( _
    ByVal dwMilliseconds As Long)
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" ( _
    ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) As Long
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 Function GetActiveWindow Lib "user32.dll" () As Long

Private Const MAX_PATH = 260&
Private Const SW_HIDE = 0&

Public Sub Sophie_druckt(strPath As String)

    Dim strShortPath As String
    Dim strPrinter As String, strNewPrinter As String
    Dim objWMI As Object, objItem As Object

    strPrinter = Application.ActivePrinter

    If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub

    strNewPrinter = Application.ActivePrinter

    If strNewPrinter <> strPrinter Then
        Set objWMI = GetObject("winmgmts:\\.\root\cimv2").ExecQuery( _
            "Select * from Win32_Printer")
        For Each objItem In objWMI
            If Cbool(InStr(1, strNewPrinter, objItem.Name)) Then
                objItem.SetDefaultPrinter
                Exit For
            End If
        Next
        Set objWMI = Nothing
        Set objItem = Nothing
    End If

    strShortPath = Space(MAX_PATH)
    GetShortPathName strPath, strShortPath, MAX_PATH

    ShellExecute GetActiveWindow, "print", strShortPath, _
        vbNullString, strShortPath, SW_HIDE

    Call Sleep(2000&)

    Application.ActivePrinter = strPrinter

    If strNewPrinter <> strPrinter Then
        Set objWMI = GetObject("winmgmts:\\.\root\cimv2").ExecQuery( _
            "Select * from Win32_Printer")
        For Each objItem In objWMI
            If Cbool(InStr(1, strPrinter, objItem.Name)) Then
                objItem.SetDefaultPrinter
                Exit For
            End If
        Next
        Set objWMI = Nothing
        Set objItem = Nothing
    End If

End Sub

Public Sub Drucken()
    Call Sophie_druckt("D:\Eigene Dateien\Eigene Tabellen\API32.TXT")
End Sub

Gruß
Nepumuk

Hallo Nepumuk,
erstmal vielen Dank für Deine Lösung.
Kann diese leider erst nächste Woche ausprobieren.
Verstehe leider nur Bahnhof, wenn ich mir Dein Modul so ansehe.
Sorry kannst Du mir noch ein bißchen auf die Sprünge helfen, muß ich irgendetwas an Deinem Modul noch auf meine Gegebenheiten anpassen?
Sieht mir so aus, als ob diese Zuweisung evt. angepasst werden muß...:-)
Set objWMI = GetObject("winmgmts:\\.\root\cimv2").ExecQuery( _
"Select * from Win32_Printer")
Funktioniert dies auch bei einer PDF Datei?
Das folgende ist mir auch noch ein Rätsel...
If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub
Wenn ich den Drucker wechsle, dann bereits bevor Dein Modul läuft oder?, dann ist auch das ...Setup.show nicht mehr aktiv.
Habe eine Userform mit 3 Button, ein Button zum Druckerwechsel (Application.Dialogs(xlDialogPrinterSetup).Show)
den zweiten Button mit Deinem Modul und den dritten um die Userform unverrichteter Dinge zu schließen.
Dankeschön im Voraus und einen schönen Tag.
Gruß Sophie

Beliebteste Forumthreads (12 Monate)

Druckerwechsel ... PDF ausdrucken

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Druckerwechsel ... PDF ausdrucken

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread