Drucken
25.05.2019 13:11:32
Alfred
Ich habe ein Problem mit dem ausdrucken von Tabellenbereichen per VBA.
Wenn ich den Befehl 'PrintOut' oder 'PrintPrevie' aufrufe, erhalte ich die Fehlermeldung "
Sub oder
Function nicht definiert". Meiner bescheidenen Ansicht nach Blödsinn, da das ja _
Standardfunktionen sind.Bis zum besagten Befehl funktioniert der Code.
Wer hat einen Tip oder eine Vermutung ?
Danke
Alfred Pfeiler
Sub VerkaufslisteDrucken_Click()
Dim rLetzte As Range
Dim letzteZeile
Set rLetzte = Sheets(1).Range("W:W").Find("")
letzteZeile = rLetzte.Row
ActiveSheet.PageSetup.PrintArea = ("K1:W" & letzteZeile)
PrintOut
End Sub
Anzeige