Druckbereich per VBA

Forumthread: Druckbereich per VBA
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Druckbereich per VBA

05.12.2024 13:09:35

philipp

Hallo zusammen,
ich möchte gern einen Druckbereich variabel festlegen.
Wenn ich mir auf dem Tabellenblatt von A10:C20 einen Bereich auswähle,
soll der Bereich per VBA festgelegt werden.

mfg philipp

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Druckbereich per VBA

05.12.2024 13:39:30

emkaes
Danke emkaes. -)

05.12.2024 14:15:54

philipp

AW: Druckbereich per VBA

05.12.2024 13:39:30

emkaes

Hallo,

dein Erfahrungslevel: VBA nur mit Recorder

und warum machst du das nicht?

Hier ein aufgezeichnetes Makro

Sub Makro1()

' Makro1 Makro

    Range("A1:G7").Select

    Selection.PrintOut Copies:=1, Collate:=True

End Sub

Wenn du es jetzt noch bearbeiten würdest, käme ein Einzeiler heraus

Sub Makro1()

   Range("A1:G7").PrintOut Copies:=1, Collate:=True

End Sub

und wie kommt da die Range() hinein?

z.B. über eine Inputbox

Sub Makro1()

' Makro1 Makro

    Dim rg As Range

    Application.DisplayAlerts = False

    On Error Resume Next

    Set rg = Application.InputBox("Bitte Druckbereich eingeben", , , , , , , 8)

    If Err.Number > 0 Then

      MsgBox "Bitte eine gültige Rangebezeichnung eingeben!)"

      On Error GoTo 0

    Else

     rg.PrintOut Copies:=1, Collate:=True

    End If

    Application.DisplayAlerts = True

End Sub