Microsoft Excel

Herbers Excel/VBA-Archiv

PDF-Datei drucken

Betrifft: PDF-Datei drucken von: ing.grohn
Geschrieben am: 20.11.2014 19:29:58

Hallo Forum,
mit folgenden Programmen habe ich aus meiner Excelanwendung PDF-Dateien ausgedruckt (hab ich mal hier von einem von Euch erhalten).
hat immer funktioniert

Sub prcPrint_PDF(strFile As String)
Dim strPath As String, strShortPath As String
    strPath = "C:\Kanzlei\PDF_Vordrucke\"
    strShortPath = Space(MAX_PATH)
    GetShortPathName strPath & "\" & strFile, strShortPath, MAX_PATH
    ShellExecute GetActiveWindow, "print", strShortPath, "", strPath, SW_HIDE
    'ShellExecute 0, "Print", strShortPath, "", "", SHOWMAXIMIZED
  
 Application.Wait Now + TimeSerial(0, 0, 9)
 Acro_Reader_killen
End Sub


Sub Acro_Reader_killen()
Const STRPC As String = "."
Dim objWMI As Object, objProcesses As Object, objProcess As Object

Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STRPC & "\root\ _
cimv2")
Set objProcesses = objWMI.ExecQuery("Select * from Win32_Process Where Name = 'acrord32.exe'")

  For Each objProcess In objProcesses
    On Error Resume Next
    objProcess.Terminate
  Next

End Sub

Nachdem ich meine Platte geclont habe (mit dem Kopierprogramm von Samsung das der Platte beigegeben war) funktioniert dieser Prgrammteil nicht mehr!
Ich habe den Eindruck, dass das am Kopiervorgang liegt, aber was ist passiert.
Auf meinem alten Rechner funktionierts noch.
Kann mir irgendjemand bei diesem Problem helfen!??
Vielen Dank
Mit freundlichen Grüßen
Albrecht

 

Beiträge aus den Excel-Beispielen zum Thema "PDF-Datei drucken"