Probleme mit dem Drucken

Forumthread: Probleme mit dem Drucken

13.09.2025 04:33:39

NicoHendrik

Guten Morgen,

Mit meinem Ausdruck (mehr als 1 Blatt) habe ich Probleme. Wenn ich den Ausdruck über Excel mache und dort 3 Kopien einstelle, bekomme ich auch 3 Kopien. Wenn ich es aber mit meinen Macro mache, bekomme ich immer nur einen Ausdruck. Das auch dann, wenn ich Copies:=3 anstatt Range im Code schreibe.

Wo kann mein Fehler sein? Im Netz habe ich bis jetzt keine Lösung gefunden.

Gruß Nico

Sub Drucken()



' Drucken1 Makro

Application.ScreenUpdating = False



'Querformat Einstellen

ActiveSheet.PageSetup.Orientation = 2



'Format automatisch an eine DINA4 Seite anpassen

ActiveSheet.PageSetup.Zoom = False



'Breite der Tabelle an ein DINA4 Blatt ausrichten

ActiveSheet.PageSetup.FitToPagesWide = 1



'Höhe der Tabelle an ein DINA4 Blatt ausrichten

ActiveSheet.PageSetup.FitToPagesTall = 1



    ActiveSheet.PageSetup.PrintArea = "$B$2:$DB$18"

    

    Selection.PrintOut Copies:=Range("DE14").Value, Collate:=True

    

    Range("B2").Select

    

    Application.ScreenUpdating = True

    

    

End Sub

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Probleme mit dem Drucken

13.09.2025 05:14:07

GerdL
AW: Probleme mit dem Drucken

13.09.2025 09:56:39

RPP63
AW: Probleme mit dem Drucken

14.09.2025 15:35:23

Kuwer
AW: Probleme mit dem Drucken

14.09.2025 16:51:05

NicoHendrik
AW: Probleme mit dem Drucken

13.09.2025 10:11:48

NicoHendrik
AW: Probleme mit dem Drucken

14.09.2025 14:35:02

GerdL
Nachfrage!

14.09.2025 14:39:31

RPP63
AW: Nachfrage!

14.09.2025 23:43:36

GerdL
AW: Probleme mit dem Drucken

14.09.2025 16:56:53

NicoHendrik
AW: Probleme mit dem Drucken

13.09.2025 05:41:41

NicoHendrik

AW: Probleme mit dem Drucken

13.09.2025 05:14:07

GerdL

Moin
Screenupdating?
Selection?
For a = 1 to 3
Activesheet.Printout
Next

Gruss Gerd

AW: Probleme mit dem Drucken

13.09.2025 09:56:39

RPP63

Moin!
Wo Dein Fehler liegt, kann ich nur vermuten:
Was steht in DE14 des aktiven Tabellenblatts? Eine 1?
Bei mir jedenfalls funktioniert folgendes problemlos:

Sub Druck()

Tabelle4.PrintOut Copies:=Tabelle4.Range("B2").Value

End Sub

Gruß Ralf

AW: Probleme mit dem Drucken

14.09.2025 15:35:23

Kuwer

Hallo Nico,

was ist, wenn Du in Deinem Code

Selection.PrintOut Copies:=Range("DE14").Value, Collate:=True

durch

ActiveSheet.PrintOut Copies:=Range("DE14").Value, Collate:=True

ersetzt?

Gruß, Uwe

AW: Probleme mit dem Drucken

14.09.2025 16:51:05

NicoHendrik

Hallo Uwe, auch das hatte ich probiert, es funktioniert aber nicht.

Hier im Forum kannst du ja sehen das ich mein Problem mit eure (Gerd) Hilfe gelöst habe.

Gru Nico

AW: Probleme mit dem Drucken

13.09.2025 10:11:48

NicoHendrik

Hallo Ralf,

es war egal was drin steht es wurde nur eine Kopie gedruckt. Mit der Hilfe von Gerd hab ich mein Problem so gelöst.

Gruß Nico

Sub Drucken()

'

' Drucken1 Makro



'Querformat Einstellen

ActiveSheet.PageSetup.Orientation = 2



'Format automatisch an eine DINA4 Seite anpassen

ActiveSheet.PageSetup.Zoom = False



'Breite der Tabelle an ein DINA4 Blatt ausrichten

ActiveSheet.PageSetup.FitToPagesWide = 1



'Höhe der Tabelle an ein DINA4 Blatt ausrichten

ActiveSheet.PageSetup.FitToPagesTall = 1



    ActiveSheet.PageSetup.PrintArea = "$B$2:$DB$18"

    

    Set b = Range("DE14")

    

    For a = 1 To b

    ActiveSheet.PrintOut

    Next

    

    Range("B2").Select

    

End Sub

AW: Probleme mit dem Drucken

14.09.2025 14:35:02

GerdL

Moin,

etwas zusammengefaßt:

Sub Druck()



    Dim a As Integer

    

    With ActiveSheet.PageSetup

    'Querformat Einstellen

    .Orientation = 2

    

    'Format automatisch an eine DINA4 Seite anpassen

    .Zoom = False

    

    'Breite der Tabelle an ein DINA4 Blatt ausrichten

    .FitToPagesWide = 1

    

    'Höhe der Tabelle an ein DINA4 Blatt ausrichten

    .FitToPagesTall = 1

    

    .PrintArea = "$B$2:$DB$18"

    End With

    

    For a = 1 To Range("DE14").Value

        ActiveSheet.PrintOut

    Next

    ActiveSheet.Range("B2").Select

    

End Sub

Gruß Gerd

Nachfrage!

14.09.2025 14:39:31

RPP63

@Gerd:
Wie geschrieben, funktioniert Copies:=3 oder Copies:=Range("X1") bei mir problemlos.
Bei Dir nicht (wie beim TE)?

Gruß Ralf

AW: Nachfrage!

14.09.2025 23:43:36

GerdL

Hallo Ralf,

Ich habe nix getestet, sondern das Scleifchen aus der Recherche geholt.
Wo der Knoten be Nico liegt, weis ich nicht.
Gruss Gerd

AW: Probleme mit dem Drucken

14.09.2025 16:56:53

NicoHendrik

Hallo Gerd,

deine Zusammenfassung sieht schöner aus. Ich belasse es jetzt aber so wie es ist, hat mir genug Ärger gemacht.

Zu Ralf: Weshalb das mit = 3 oder Range bei mir nicht funktioniert, kann ich nicht sagen. Ich benutze Excel 356 mit Parallels auf einen Mac Studio, ob es daran liegt ??

Grüsse an Alle

Nico

AW: Probleme mit dem Drucken

13.09.2025 05:41:41

NicoHendrik

Danke schön Gerd

Gruß Nico

Forumthread: Probleme mit dem Drucken

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread