Hallo,

In Celle NP 41 steht B2
In Celle NQ 41 steht F41

Jetzt möchte ich das der Drucker immer das druckt was in NP 41 bis NQ41 steht.

Hab da was gebastelt, funktioniert aber nicht richtig. Dh. der Drucker druckt dann irgendwas anderes aus der Tabelle.

Mein Code??
Sub Drucken()

' Drucken Makro


'Querformat Einstellen
ActiveSheet.PageSetup.Orientation = 2

'Format automatisch an eine DINA4 Seite anpassen
ActiveSheet.PageSetup.Zoom = False

'Breite der Tabelle an ein DINA4 Blatt ausrichten
ActiveSheet.PageSetup.FitToPagesWide = 1

'Höhe der Tabelle an ein DINA4 Blatt ausrichten
ActiveSheet.PageSetup.FitToPagesTall = 1

Dim ca As Range
Set ca = Range("NP41")

Dim cb As Range
Set cb = Range("NQ41")

ActiveSheet.PageSetup.PrintArea = "ca:cb"
ActiveSheet.PrintOut

Range("B48").Select

End Sub

Gruß Nico