Microsoft Excel

Herbers Excel/VBA-Archiv

Pagesetup

Betrifft: Pagesetup
von: wolf
Geschrieben am: 14.04.2003 - 14:31:19

Hallo
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

  

Re: Pagesetup
von: Gert Seler
Geschrieben am: 16.04.2003 - 18:32:59

Hallo Wolf,
ich hab zwar wenig mit VBA am Hut, aber muß .zoom nicht erst
auf True gestellt werden?
mfg
Gert

  

Re: Pagesetup
von: wolf
Geschrieben am: 23.04.2003 - 08:35:07

Hallo
Ich muss .zoom=false setzen, sonst kann ich FitToPagesWide = 1
nicht einstellen.
Habe das Problem durch Installation eines neuen Druckers gelöst

mfg
wolf