Macro funktioniert nun...aber
04.10.2005 13:03:12
Thomas
Also.... ich finde meinen Beitrag nicht wieder, daher ein neuer von mir.
Ich habe nun endlich folgendes Macro zusammengebastelt was soweit auch gut funktioniert:
Private Sub CommandButton1_Click()
' Er wechselt zur Reservierungsbestätigung
Sheets("Reservierungsbestätigung").Select
' Festlegen des aktuellen Druckers
Application.ActivePrinter = "Adobe PDF auf Ne05:"
' Definieren der PS und PDF Files
Dim PSFileName As String
Dim PDFFileName As String
PSFileName = "D:\Pension\Reservierungsbestätigungen\" & Range("B3").Value & ".ps"
If Range("B3").Value <> "D:\Pension\Reservierungsbestätigungen\" & Range("B3").Value & ".pdf" Then
PDFFileName = "D:\Pension\Reservierungsbestätigungen\" & Range("B3").Value & ".pdf"
End If
' Druckbereich angeben
Dim wsReser As Worksheet
Set wsResre = ActiveSheet
wsResre.Range("A1:H54").PrintOut Copies:=1, preview:=False, ActivePrinter:="Adobe PDF auf Ne05:", printtofile:=True, Collate:=True, prtofilename:=PSFileName
DistillerCall = "C:\Programme\Adobe\Acrobat 6.0\Distillr\Acrodist.exe" & _
" /n /q /o" & PDFFileName & " " & PSFileName
ReturnValue = Shell(DistillerCall, vbNormalFocus)
If ReturnValue = 0 Then MsgBox "Creation of " & PDFFileName & "failed."
Set pdfDist = Nothing
' Er wechselt zurück zur Erfassung-Reser
Sheets("Erfassung-Reser").Select
End Sub
Er speichert schön die drei Dateien ab (.log, .ps, .pdf) aber... da ist bezüglich des Dateinamens noch gewaltig der Wurm drinn!
Wie sag ich´s ihm, dass sich der Dateiname aus folgenden Feldern zusammensetzen soll:
Erfassung-Reser!B13+Erfassung-Reser!B14+Erfassung-Reser!B3+Erfassung-Reser!B4
Meine Versuche dies auch nur annähernd hin zu bekommen sind jämmerlich gescheitert!
Wäre über ne Antwort sehr Dankbar!
Gruß,
Thomas