Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
244to248
244to248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Pagesetup

Pagesetup
14.04.2003 14:31:19
wolf
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Pagesetup
16.04.2003 18:32:59
Gert Seler

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

Re: Pagesetup
23.04.2003 08:35:07
wolf

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige