Wie müssen wir vorgehen, um aus unserer 'Ein-Spalten-Darstellung' auf eine vernünftiges 'Druckbild' zu kommen?
Sub Ausdrucken()
If ActiveWindow.View.SplitSpecial wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=2
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(6.98)
.Spacing = CentimetersToPoints(1.27)
End With
Application.PrintOut
End Sub
Sub ExcelMakroTelefonliste()
Range("A:A").Copy
CreateObject("word.application").documents.Open("C:\TelDrckTemp.doc").Application.Visible = _
True
SendKeys "^v"
End Sub