Hallo Zusammen,
ich habe folgenden Code, der soweit auch funkioniert:
Sheets("Seite 1 KD").Select
Range("A1:CT74").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$CT$74"
With ActiveSheet.PageSetup
.CenterHorizontally = True
.CenterVertically = True
.PaperSize = xlPaperA4
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintErrors = xlPrintErrorsDisplayed
Was muss ich tun, um zB. die Zellen B1:B20 aus dem oben genannten Druckbereich nicht mitanzudrucken?
Gunter