Word2k Makro

[Freak4life]

Hi!

Ich wollte ein Makro für Word2k schreiben. Undzwar soll es dafür sorgen, das nur eine von 2 Seiten ausgedruckt. Aber auch nur wenn die zweite Seite nicht gebraucht wird.

Das sieht bei mir so aus:

Sub Druckenstandard()

Dim Start As Long

Dim Ende As Long

Dim Bereich As Range

Dim drucken As Dialog

Set Bereich = ActiveDocument.Range(Start:=Start, End:=Ende)

If ActiveDocument.FormFields("Me1").Result <> "" Then

PrintOut.Document = "2"

drucken.Range = wdPrintRangeOfPages

drucken.NumCopies = 1

drucken.Execute

End If

Set Bereich = ActiveDocument.Range(Start:=Start, End:=Ende)

If ActiveDocument.FormFields("Me1").Result = "" Then

drucken.Pages = "1"

drucken.Range = wdPrintRangeOfPages

Else

drucken.Range = wdPrintAllDocument

End If

End Sub

Jedoch kommt bei 'drucken.Pages ="1" ' dir Fehlermedlung Objektvariable oder With-Blockvariable nicht festgelegt.

Kann mir da einer sageb wie ich den Felherbeheben kann?

[fireworker]

Dann definier doch mal das Wort "drucken".

dim/public drucken as ???