Hallo,
ich wie kann ich denn bei Excel die Funktion „gegenüberliegende Seiten“ einstellen, so dass ich unterschiedliche Seitenränder bei geraden und ungeraden Seiten habe?
Ich habe hier zwar auch einen anderen Artikel zum genau diesem Thema gefunden, leider hat der mich nur nicht weiter gebracht, weil ich bei mir nichts derartiges in den Druckoptionen einstellen kann.
Kennt jemand eine andere Möglichkeit?
Gruß, Kathrin
Hallo Kathrin,
ich wie kann ich denn bei Excel die Funktion
„gegenüberliegende Seiten“ einstellen, so dass ich
unterschiedliche Seitenränder bei geraden und ungeraden Seiten
habe?
ich wüßt jetzt gar nicht wie und ob man „gegenüberliegende Seiten“ bei Excel einstellen könnte.
Gibt es das bei Word o.ä.?
Ich habe hier zwar auch einen anderen Artikel zum genau diesem
Thema gefunden, leider hat der mich nur nicht weiter gebracht,
weil ich bei mir nichts derartiges in den Druckoptionen
einstellen kann.
Kannst du hier den Link zu dem Artikel zeigen?
Meiner, in dem Fall wirklich nicht durch Wissen geprägten Meinung nach *gg*, spielen da bei Druckoptionen Excel und der Drucker bzw. Druckertreiber zusammen.
D.h., andrer Drucker und dir werden andere Druckoptionen angeboten.
Gruß
Reinhard
Ich habe nur leider keinen anderen Drucker zur Verfügung… Gibt es denn keine Möglichkeit das direkt bei Excel einzustellen anstatt zu versuchen es über Druckoptionen laufen zu lassen?
Hallo Kathrin,
Die Einstellungen „gegenüberliegende Seiten“ ich bei ist eine Option vom Druckertreiber, nicht von Excel.
Ich vermute mal das es darum geht duplex auszudrucken.
Schau dir den Link mal an:
/t/gegenueberliegende-seiten-bei-excel/2823102
Was sehr gut und mit jedem Drucker funktioniert ist FinePrint,
ein Druckertreiber der allerdings nicht umsonst ist.
http://www.chip.de/downloads/FinePrint_12996755.html
Gruß Holger
Also, falls Duplex bedeutet, dass ich mehrere Seiten auf einer ausdrucken kann, das ist nicht das Problem. Das kann ich auch so.
Mir geht es darum, dass ich unterschiedliche Seitenränder bei geraden und ungeraden Seiten habe, damit es beidseitig gedruckt und dann gelocht werden kann.
Genau den Artikel hatte ich bereits gelesen, aber wie gesagt, der hat mir leider nicht weitergeholfen…
Und naja, 50€ sind mir für so etwas zu teuer… Gibt es da vielleicht eine kostenfreie Alternative, die das auch kann?
Grüezi Kathrin
ich wie kann ich denn bei Excel die Funktion
„gegenüberliegende Seiten“ einstellen, so dass ich
unterschiedliche Seitenränder bei geraden und ungeraden Seiten
habe?
Ich habe hier zwar auch einen anderen Artikel zum genau diesem
Thema gefunden, leider hat der mich nur nicht weiter gebracht,
weil ich bei mir nichts derartiges in den Druckoptionen
einstellen kann.
Kennt jemand eine andere Möglichkeit?
Meines Wissens stehr diese Option nur in word zur Verfügugn, nicht aber in Excel.
Excel =//= Textverarbeitung
Mit freundlichen Grüsse
Thomas Ramel
-MVP für MS-Excel-
Vba Buchdruck, gerade/ungerade Seiten verschieden
Ich habe nur leider keinen anderen Drucker zur Verfügung…
Gibt es denn keine Möglichkeit das direkt bei Excel
einzustellen anstatt zu versuchen es über Druckoptionen laufen
zu lassen?
Moin Schab,
du legst die Links- und Rechtswerte für gerade/ungerade in diesen zwei Zeilen fest, bzw. da veränderst du sie auch:
Links = IIf(Seite Mod 2 = 0, 4, 1) 'Gerade=4, Ungerade=1
Rechts = IIf(Seite Mod 2 = 0, 1, 4) 'Ungerade=1, Gerade=4
Den Code startest du indem du dich mit dem Curser in den Code von Buchdruck stellst und F5 drückst, oder in Excel Alt+F8, Buchdruck ausführen.
Um den Code reinkopieren zu können, Alt+F11, Einfügen—Modul, dorthin den Code kopieren.
Gruß
Reinhard
Option Explicit
'
Sub Buchdruck()
Dim Seite As Integer, AltLinks As Single, AltRechts As Single
Dim Links As Single, Rechts As Single
AltLinks = ActiveSheet.PageSetup.LeftMargin
AltRechts = ActiveSheet.PageSetup.RightMargin
For Seite = 1 To ExecuteExcel4Macro("Get.Document(50)")
Links = IIf(Seite Mod 2 = 0, 4, 1) 'Gerade=4, Ungerade=1
Rechts = IIf(Seite Mod 2 = 0, 1, 4) 'Ungerade=1,Gerade=4
Call SeiteEinrichten(Links, Rechts)
Application.EnableEvents = False
ActiveSheet.PrintOut From:=Seite, To:=Seite, Copies:=1, Collate:=True
Application.EnableEvents = True
Next Seite
ActiveSheet.PageSetup.LeftMargin = AltLinks
ActiveSheet.PageSetup.RightMargin = AltRechts
End Sub
'
Sub SeiteEinrichten(ByVal Links As Single, ByVal Rechts As Single)
With ActiveSheet.PageSetup
' .LeftHeader = ""
' .CenterHeader = ""
' .RightHeader = ""
' .LeftFooter = ""
' .CenterFooter = ""
' .RightFooter = ""
.LeftMargin = Application.CentimetersToPoints(Links)
.RightMargin = Application.CentimetersToPoints(Rechts)
' .TopMargin = Application.CentimetersToPoints(2.5)
' .BottomMargin = Application.CentimetersToPoints(2.5)
' .HeaderMargin = Application.InchesToPoints(0.511811023622047)
' .FooterMargin = Application.InchesToPoints(0.511811023622047)
' .PrintHeadings = False
' .PrintGridlines = False
' .PrintComments = xlPrintNoComments
' .PrintQuality = 300
' .CenterHorizontally = False
' .CenterVertically = False
' .Orientation = xlPortrait
' .Draft = False
' .PaperSize = xlPaperA4
' .FirstPageNumber = xlAutomatic
' .Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = 100
End With
End Sub
kleine Korrektur
Links = IIf(Seite Mod 2 = 0, 4, 1) 'Gerade=4, Ungerade=1
Rechts = IIf(Seite Mod 2 = 0, 1, 4) 'Ungerade=1, Gerade=4
ersetzen durch
Links = IIf(Seite Mod 2 = 0, 4, 1) 'Gerade=4, Ungerade=1
Rechts = IIf(Seite Mod 2 = 0, 1, 4) 'Gerade=1, Ungerade=4
Achja, die Werte sind Zentimeter, Dezimaltrenner ist der Punkt!
Gruß
Reinhard