zwei Optionen in if then
21.12.2004 10:26:52
Kayhan
habe mal wieder ein Problem :-)
Habe den VBA Code mal kopiert, meine gewünschte zwei Druckoption wird nicht anerkannt. Könnte mir jemand unter die Arme greifen?
Vielen Dank und viele Grüße
Kayhan
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim A As Integer
A = MsgBox(("Möchten Sie eine PDF erstellen?"), vbYesNo, "Kayhan")
If A = 6 Then
Else
Application.ActivePrinter = "FreePDF XP auf Ne03:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:="FreePDF XP auf Ne03:", _
Collate:=True
Else
Application.ActivePrinter = "Acrobat Distiller auf Ne03:"
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat Distiller auf Ne03:", Collate:=True
End If
End Sub