Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 12:57:34 Thomas
NotSolved
Blau Mehrfachen Druck verhindern
 16.03.2021 17:20:00 Gast83019
NotSolved
18.03.2021 07:28:34 Thomas
NotSolved
18.03.2021 17:46:17 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Gast83019		 Datum:
16.03.2021 17:20:00		 Views:
525		 Rating:
     
Antwort:
  Ja
Thema:
Mehrfachen Druck verhindern

Sub BlattAusdruck()

Dim a As Integer
Dim b As Integer
Dim v As Integer
Dim n As Integer

For a = 9 To 10
     For b = 9 To 10
          For v = 9 To 10
               For n = 9 To 10
                    Sheets("Umplatzierung").Cells(a, 1).Copy
                    Sheets("Vorlage").Range("D47").PasteSpecial
                    Sheets("Umplatzierung").Cells(b, 4).Copy
                    Sheets("Vorlage").Range("L47").PasteSpecial
                    Sheets("Umplatzierung").Cells(v, 2).Copy
                    Sheets("Vorlage").Range("D11").PasteSpecial
                    Sheets("Umplatzierung").Cells(n, 3).Copy
                    Sheets("Vorlage").Range("D28").PasteSpecial
                    'Dieser Code wird infolge der Laufanweisungen zur Zeit 16 mal aufgerufen
                    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
               Next
         Next
     Next
Next

'Hier druckt er am Ende

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

End Sub

LG Armin

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.03.2021 12:57:34 Thomas
NotSolved
Blau Mehrfachen Druck verhindern
 16.03.2021 17:20:00 Gast83019
NotSolved
18.03.2021 07:28:34 Thomas
NotSolved
18.03.2021 17:46:17 xlKing
NotSolved