hier ist mal wieder eine knifflige Frage:
Wie kann ich einen bestimmten Bereich per FreePDF XP umwandeln und sofort per E-Mail versenden?
Ich habe mir bei der Recherche schon die Finger wund gesucht. Mittlerweila habe ich mir folgenden Code zusammengebastelt:
Private Sub CommandButton1_Click()
Dim wks As Worksheet, oldPrinter As String
Set wks = ActiveSheet
Select Case wks.Name
Case "Tabelle1" 'Name der Tabelle von der eine PDF-Kopie ausgedruckt werden soll
If ActiveWindow.SelectedSheets.Count = 1 Then 'Prüfung auf Blattgruppierung
oldPrinter = Application.ActivePrinter
Application.ActivePrinter = "FreePDF XP auf Ne00:"
Application.EnableEvents = False
ActiveWindow.SelectedSheets.PrintOut
Application.EnableEvents = True
Application.ActivePrinter = oldPrinter
End If
Case Else
'do nothing
End Select
End Sub
Problem 1: mir scheint der Code zu lang für das was er tut.
Problem 2: ich muß noch einen Speicherort ausdenken.
Wie kann ich das lösen?
Danke für Eure Hilfe.
Viele Grüße
Marco