Hallo!
Ich möchte eine längere Word-Datei im DIN A5 - Format ausdrucken, habe jedoch nur einen A4-Drucker. Ausserdem sollen die Seiten beidseitig bedruckt sein.
Wie kann man das mit Word am geschicktesten machen?
Vielen Dank im Voraus für eure Hilfe.
Bruno.
Hallo,
Du mußt die Seite auf Querformat stellen und zwei Spalten einrichten. Drucken läßt Du erst die ungraden Seiten, drehst das Papier um und druckst die graden.
Wenn Du auf jeder DIN A5-Seite eine Seitennummer haben willst, muß die berechnet werden.
Tschau
Heidrun
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo!
Vielen Dank für deine Antwort, aber so kann das leider auch nicht funktionieren. Möglicherweise habe ich meine Frage etwas missverständlich gestellt. Ich möchte nämlich ein Buch im DIN A5-Format ausdrucken. Aus diesem Grund muss ja auf der Rückseite jeder einzelnen Seite ja die darauffolgende Seite sein (also z.B. auf der Rückseite von Seite 2 kommt die Seite 3, u.s.w.).
Wenn ich das nach deinem Tip machen würde, hätte ich zwar auf der Rückseite der Seite 2 korrekterweise die Seite 3, auf der Rückseite der Seite 1 wäre aber die Seite 4!
Hoffe, Du verstehst jetzt mein Problem!
Vielleicht gibt es auch einen ganz anderen Weg, ein Buch im A5-Format auszudrucken. Ich bin für jeden Hinweis dankbar!
Grüsse,
Bruno.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Bruno
Sie geben leider Ihre WOrd-Version nicht bekannt.
Sie können dies nur mit einem Makro erreichen, wobei die Makrolösung bei Word 97 komplexer ist als bei Word2000.
Hier zwei Tipps dazu.
Gruss
S. Widmer
WORD2000
Jedenfalls, richte ein Dokument folgendermaszen ein:
A4 Querformat
2 Seiten pro Blatt
Jetzt ränder usw einstellen und speichern als Vorlage (.DOT)
Auf diese Basis kann ein Büchlein, Heftchen oder wie so’n Dingsa
auch heisst, gemacht werden.
Zum drucken benutzt man nur die folgende kleine Makro:
Sub boekje_print()
pages = Selection.Information(wdNumberOfPagesInDocument)
If pages Mod 4 0 Then
MsgBox „Leider, Seitenanzahl nicht teilbar durch 4“
Else
For n = 1 To pages / 2
If n Mod 2 = 1 Then
pag$ = Str(pages + 1 - n) & „,“ & Str(n)
Else
pag$ = Str(n) & „,“ & Str(pages + 1 - n)
End If
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, _
Item:=wdPrintDocumentContent, Copies:=1, pages:=pag$, _
PageType:=wdPrintAllPages, Collate:=True, Background:=True
Next n
End If
End Sub
Word 97
Dies ist meine Buchleinmakro, die ziemlich scheller als der Vorige ist,
und jetzt auch die Benutzung von Kopf- bzw Fusszeilen zulaesst. Ein
Buchlein (oder Broschuere oder Prospekt oder.) wird Produziert von
einem A5 grossen Dokument.
Richard
Sub boekje_turbo()
ActiveWindow.ActivePane.View.Type = wdPageView
headtext = „Text oben“
headtext2 = headtext & vbTab & headtext
foottext = „Text unten“
foottext2 = " " & foottext & vbTab & foottext & " "
Dim n As Integer, pages As Integer
bron = ActiveDocument.Name
Application.ScreenUpdating = False
With Selection
pages = 4 * ((.Information(wdNumberOfPagesInDocument) + 3) \ 4)
.EndKey unit:=wdStory
For n = 1 To 4
.InsertAfter Chr(13) & Chr(12) & „Leerseite“
Next n
Set rakRange = .Range
End With
With ActiveDocument.PageSetup
up1 = .TopMargin
down1 = .BottomMargin
left1 = .LeftMargin
recht1 = .RightMargin
wide1 = .PageWidth
high1 = .PageHeight
gutt1 = .Gutter
End With
Documents.Add Template:=ActiveDocument.AttachedTemplate.FullName
doel = ActiveDocument.Name
With ActiveDocument.PageSetup
.Orientation = wdOrientLandscape
.TopMargin = up1
.BottomMargin = down1 - 5
.PageHeight = high1
.PageWidth = 2 * wide1
.LeftMargin = recht1
.RightMargin = recht1
.MirrorMargins = False
.Gutter = 0
.TextColumns.SetCount numcolumns:=2
.TextColumns.Spacing = 2 * (left1 + gutt1)
.OddAndEvenPagesHeaderFooter = True
End With
With Selection 'Herstellung eines Komplexes Seitennumerfeld
.Fields.Add Range:=.Range, Type:=wdFieldPage,
preserveformatting:=False
Set rang1 = .Range
.Fields.Add Range:=.Range, Type:=wdFieldEmpty,
preserveformatting:=False
.TypeText „=“ & pages + 1 & „-“
.Fields.Add Range:=.Range, Type:=wdFieldPage,
preserveformatting:=False
.Fields.Update
.MoveRight unit:=wdWord, Count:=1, Extend:=wdExtend
.Copy
.MoveRight
.TypeParagraph
.Paste
.TypeText foottext2
rang1.InsertBefore foottext2
.Fields.Add Range:=.Range, Type:=wdFieldPage,
preserveformatting:=False
End With
For n = 1 To 3 Step 2
Selection.EndKey unit:=wdStory
ActiveDocument.Bookmarks("\para").Range.Cut
Selection.TypeBackspace
With ActiveDocument.Sections(1).Footers(n).Range
.Paste
With .ParagraphFormat.TabStops
.ClearAll
.Add Position:=2 * (wide1 - recht1), Alignment:=wdAlignTabRight
End With
End With
With ActiveDocument.Sections(1).Headers(n).Range
.Delete
.InsertAfter headtext2
With .ParagraphFormat.TabStops
.ClearAll
.Add Position:=2 * (wide1 - recht1), Alignment:=wdAlignTabRight
End With
End With
Next n
c = 1
b = pages + 1
For n = 1 To pages / 2
a = b - c
ActiveDocument.Bookmarks.Add Name:=„rakje“ + Trim(Str(a))
Selection.TypeText vbCr & Chr(14)
b = pages + 1 - a
ActiveDocument.Bookmarks.Add Name:=„rakje“ + Trim(Str(b))
Selection.TypeText vbCr & Chr(14)
c = c * -1
Next n
Selection.TypeBackspace
Selection.WholeStory
Selection.Font.Size = 1
Documents(bron).Activate
Selection.HomeKey unit:=wdStory
For n = 1 To pages 'paste the pages
Documents(bron).Activate
With Selection
ActiveDocument.Bookmarks("\page").Select
.MoveEnd unit:=wdCharacter, Count:=-1
.Copy
.Collapse direction:=wdCollapseEnd
vullen = Asc(.Text) = 32 And .ParagraphFormat.Alignment = 3
.GoTo what:=wdGoToPage, which:=wdGoToNext
End With
Documents(doel).Activate
With Selection
.GoTo what:=wdGoToBookmark, Name:=„rakje“ + Trim(Str(n))
.Paste
If vullen = True Then .TypeText Chr(11) ’ 11=Line Break
End With
Next n
Documents(bron).Activate 'das Original
rakRange.Delete
Documents(doel).Activate 'das Buchlein
Application.ScreenUpdating = True 'fertig
End Sub
Hallo,
Eine Möglichkeit wäre natürlich, gleich auf DIN A5 Papier zu drucken.
Tschau
Heidrun