AW: Spalte für Druck aufbereiten/anders anordnen
29.07.2010 14:43:23
Klaus
Hallo Sven,
ich habs mal hingebastelt. Ist etwas roh, weil ich in Word-VBA eigentlich nix kann...
1) erstelle ein Word-Dokument namens TelDrckTemp.doc unter C:\ (oder sonstwo)
2) Füge in dieses Dokument einen Button ein, mit folgendem Code belegt:
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
3) Fuge in die Excel-Liste einen Button ein, mit folgendem Code belegt:
Sub ExcelMakroTelefonliste()
Range("A:A").Copy
CreateObject("word.application").documents.Open("C:\TelDrckTemp.doc").Application.Visible = _
True
SendKeys "^v"
End Sub
(den Pfad / Dateinamen anpassen, falls du oben nicht unter C gespeicher hast)
Zum Drucken der Liste braucht es jetzt sagenhafte zwei Mausclicks: einmal in Excel auf den Button, dann in Word.
Kann man bestimmt auch noch eleganter lösen, dass der Excel-Button gleich das Word Makro mit aufruft - nur weiss ich nicht wie :-)
Grüße,
Klaus M.vdT.