Verwende OfficeXP unter WindowsXP. Dabei tritt folgendes Problem bei HPLaserjet-Druckern auf: Steht in einer Zelle der Text ....T... so sind am Ausdruck zwischen dem T und dem mehrere Leerzeichen eingefügt!!!
Unter WindowsNT bzw Windows2000 und Off97 gabs das Problem nicht.
Das ganze Problem resultiert aus folgender Zeile von unten stehendem Code:
.zoom = False
Wer kann mir helfen ohne das ganze Pagesetup umzubauen??
Vielen Dank im voraus
wolf
Sub ausdrucken1(zeilevon, zeilebis As Integer, kopfzeilenvon, kopfzeilenbis As Integer)
Sheets("Zw").Select
With ActiveSheet.PageSetup
If kopfzeilenvon > 0 And kopfzeilenbis > 0 Then
.PrintTitleRows = "$A$" + CStr(kopfzeilenvon) + ":$AE$" + CStr(kopfzeilenbis)
Else
.PrintTitleRows = ""
End If
.PrintArea = "$A$" + CStr(zeilevon) + ":$AE$" + CStr(zeilebis)
.CenterFooter = ""
.CenterHeader = ""
.PrintHeadings = False
.PrintGridlines = False
.LeftMargin = Application.InchesToPoints(0.590551181102362)
.RightMargin = Application.InchesToPoints(0.590551181102362)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
.HeaderMargin = Application.InchesToPoints(0.393700787401575)
.FooterMargin = Application.InchesToPoints(0.393700787401575)
.PrintNotes = False
.CenterHorizontally = True
.Orientation = xlLandscape
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 20
End With
ActiveWindow.SelectedSheets.PrintOut copies:=1
End Sub