Thema Datum  Von Nutzer Rating
Antwort
Rot Mehrfachen Druck verhindern
 16.03.2021 12:57:34 Thomas
NotSolved
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:
Thomas		 Datum:
16.03.2021 12:57:34		 Views:
891		 Rating:
     
Antwort:
  Ja
Thema:
Mehrfachen Druck verhindern

Guten Mittag zusammen,

Ich habe folgenden Code:

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").Select
Cells(a, 1).Copy
Sheets("Vorlage").Select
        Range("D47").PasteSpecial
            'ActiveSheet.Select
Sheets("Umplatzierung").Select
Cells(b, 4).Copy
   Sheets("Vorlage").Select
        Range("L47").PasteSpecial
            'ActiveSheet.Select
Sheets("Umplatzierung").Select
Cells(v, 2).Copy
    Sheets("Vorlage").Select
        Range("D11").PasteSpecial
            'ActiveSheet.Select
Sheets("Umplatzierung").Select
Cells(n, 3).Copy
    Sheets("Vorlage").Select
        Range("D28").PasteSpecial
            'ActiveSheet.Select
           
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False


Next
Next
Next
Next

End Sub

----------------------------------------

Funktioniert alles einwandfrei bis auf das Drucken. Das Makro soll wenn alle 4 Daten eingefügt wurden EINMAL das "Vorlage" Blatt drucken. Bisher druckt er es sehr oft aus (weiss leider nicht warum).

Kann mir vllt jemand weiterhelfen? Danke schonmal....

 

LG

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
Rot Mehrfachen Druck verhindern
 16.03.2021 12:57:34 Thomas
NotSolved
16.03.2021 17:20:00 Gast83019
NotSolved
18.03.2021 07:28:34 Thomas
NotSolved
18.03.2021 17:46:17 xlKing
NotSolved