Guten Abend,
ich möchte ein Dokument ausdrucken von Seite 1 bis zu Seite x.
Der Wert x befindet sich in dem gleichen Tabellenblatt in Zelle I2 und ändert sich.
Anzal der Seitewn ändert sic also.
Habe es so versucht:
'Wählt den Drucker blanko aus
Dim strPrinter As String
Const cstrPrinter As String = "\\Han auf Ne11:"
strPrinter = Application.ActivePrinter
ActiveSheet.PrintOut From:=1, To:=Sheets("Evaluationsbogen").Range(I2), Copies:=1, Preview:=False,
ActivePrinter:=cstrPrinter, Collate:=True
Hat jemand freundlicherweise eine Idee?
Wahrscheinlich muss ich die Variable erst deklarieren?
Liebe Grüße
Matthias
|