Ich möchte einen bestimmten Bereich von Tabellenblatt Urkunde ausdrucken.
In Excel 10.0 funktioniert es mit folgendem Code:
ActiveSheet.PrintOut
Dieser funktioniert in Excel 8.0 aber nicht
In Excel 8.0 funktioniert folgender Code:
ActiveSheet.PageSetup.PrintArea = "$A13$:$F32$"
Dieser funktioniert aber in Excel 10.0 nicht
Hat vielleicht jemand einen Code für mich der in beiden Excel Versionen läuft?
Sub urkunde12042003()
' Urkunde Anhand der Startnummer drucken
Dim Suche As Variant
Dim Zeile As Long
Dim Spalte As Integer
Sheets("Urkunde").Select
Range("B14:C17,D17,C18,C19,C20,D21").ClearContents
Suche = Sheets("Urkunde").Cells(11, 10)
Application.ScreenUpdating = False
Worksheets("Ergebnisse").Activate
Cells(1, 1).Select
For Zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If Sheets("Ergebnisse").Cells(Zeile, 3) = Suche Then
Sheets("Urkunde").Cells(14, 2) = Sheets("Ergebnisse").Cells(Zeile, 12)
Sheets("Urkunde").Cells(17, 1) = Sheets("Ergebnisse").Cells(Zeile, 6)
Sheets("Urkunde").Cells(17, 2) = Sheets("Ergebnisse").Cells(Zeile, 5)
Sheets("Urkunde").Cells(18, 3) = Sheets("Ergebnisse").Cells(Zeile, 10)
Sheets("Urkunde").Cells(19, 3) = Sheets("Ergebnisse").Cells(Zeile, 1) & ". Platz Gesamtwertung"
Sheets("Urkunde").Cells(20, 3) = Sheets("Ergebnisse").Cells(Zeile, 2) & ". Platz in der Altersklasse"
Sheets("Urkunde").Cells(21, 4) = Sheets("Ergebnisse").Cells(Zeile, 4)
End If
Next Zeile
If IsEmpty(Sheets("Urkunde").Cells(21, 4)) Then
Sheets("Urkunde").Select
MsgBox "Startnummerdaten nicht vorhanden!"
Exit Sub
End If
Application.ScreenUpdating = True
Sheets("Urkunde").Select
Sheets("Urkunde").Cells(17, 3).Value = Cells(17, 1).Value & " " & Cells(17, 2).Value
Range("A17,B17").ClearContents
If Range("I1000").End(xlUp).Row + 1 < 20 Then
LetzteZeile = 20
Else
LetzteZeile = Range("I1000").End(xlUp).Row + 1
End If
'Wert übertragen
Cells(LetzteZeile, 9) = Range("J11")
Sheets("Urkunde").Select
' Range("J11").Select
ActiveSheet.PrintOut 'funktioniert in Office 97 nicht
' Range("A12:F32").Select
' ActiveSheet.PageSetup.PrintArea = "A13:F32" ' funktioniert in Excel 10 nicht
Range("J11").Select
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf