Druckroutinen VBA
Charly
Habe voreiniger Zeit unten folgenden Code aus dem Forum ein wenig angepasst.
Ich glaub der Code war von Hajo, bin mir aber nicht sicher.
Funktioniert auch prima.
Nun möchte ich aber für unterschiedliche Tabellen, verschiedene Druckroutinen einbauen.
zB.
With sheets("Form1")
.PageSetup.PrintArea = "$A$1:$P$32"
.PrintOut from:=1, To:=1
End With
und
With sheets("Form2")
.PageSetup.PrintArea = "$A$1:$P$65"
.PrintOut from:=1, To:=2
End With
Ich bekomme das alleine nichthin, könnt ihr mir helfen?
Der Tabellenname im Code ist "LV"
Hier der Code:
Sub Save_PDF_LV()
Dim boVorhanden As Boolean ' Variable ob Drucker vorhanden
Dim strDrucker As String ' Variable für den aktiven Drucker
Application.ScreenUpdating = False
' aktuellen Drucker auslesen
strDrucker = Application.ActivePrinter
AktuellerDrucker strDrucker
' Drucker umstellen
ChangePrinter "PDF", boVorhanden
' Drucker ist installiert
If boVorhanden Then
' Tabelle drucken
With ActiveSheet
.[A1:K1].Interior.ColorIndex = 2
.[A1].Font.ColorIndex = 1
.PrintOut
.[A1:K1].Interior.ColorIndex = 1
End With
Else
MsgBox "PDF - Drucker nicht installiert"
End If
' Drucker zurücksetzen
ChangePrinter strDrucker, boVorhanden
End Sub
Danke vorab.
Charly