Private Sub CommandButton4_Click()
Dim strFileName As String
strFileName = "C:\MGD Recycling\Rechnungen\" & Range("DH3").Value & ".pdf"
ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Shell "rundll32.exe shell32.dll,ShellExec_RunDLL " & strFileName, vbNormalFocus
Shell "rundll32.exe shell32.dll,ShellExec_RunDLL " & strFileName, vbNormal
End Sub
Funktioniert soweit ganz prima, dafür erstmal vielen Dank.
Mein Problem; die PDF Datei wird 2 x im Browser geöffnet aber nicht gedruckt
Wenn das Drucken aus Excel als PDF nicht geht, würde es mir reichen, wenn die PDF einmal im Browser öffnet und wir dann per Hand den Druckbefehl ausführen können.
Kannst du mir den Code dementsprechend anpassen ?
Ich habe es schon mit einem REM vor Shell "rundll32.exe shell32.dll,ShellExec_RunDLL " & strFileName, vbNormalFocus UND Shell "rundll32.exe shell32.dll,ShellExec_RunDLL " & strFileName, vbNormal ausprobiert - geht aber nicht !
Hans