Statt drucken ausgabe in Word
17.05.2003 11:15:27
Roger
Ich möchte gerne statt das Tabellenblatt drucken dieses in Word ausgeben. Bis anhin hab ich es gedruckt und dazu folgenden Code verwendet
Private Sub cmdDrucken_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) Then
Worksheets(ListBox1.List(iCounter)).PrintOut
End If
Next iCounter
End Sub
Wie muss ich den nun abändern damit er die Tabelle nach Word exportiert?
Für eure Hilfe Danke ich bestens.
Gruss Roger