Thema Datum  Von Nutzer Rating
Antwort
Rot Keine Rückmeldung nach "Druck-Makro"
 09.09.2021 11:24:12 Piecha
Solved
16.05.2022 07:58:14 Gast57461
Solved

Ansicht des Beitrags:
Von:
Piecha		 Datum:
09.09.2021 11:24:12		 Views:
1168		 Rating:
     
Antwort:
 Nein
Thema:
Keine Rückmeldung nach "Druck-Makro"

Hallo zusammen,

Da mein Standard-Drucker nur SW kann, habe ich mir ein Makro geschrieben, welches mir temporär einen Farbdrucker einstellt.

Leider habe ich nach dem Drucken das Problem, dass Excel sehr langsam wird und Zeitweise "Keine Rückmeldung" ausgibt.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Farbausdruck_Auslastung()                       ' Prüffeld
    Dim DruckerAlt As String
    Dim DruckerAusgabe As String
    Dim NameDatei As String
    Dim NameKaPaPlanung As String
    Dim Pfad As String
 
 
    Normalansicht 'ActiveWindow.View = xlNormalView
' --------------------- PDF ----------------------------------
     
    Pfad = Sheets("Einstellungen").Range("B25")
    NameKaPaPlanung = "Kapa-Planung PF"
    ActiveSheet.PageSetup.PrintArea = "$A$1:$O$40"
     
    If Month(Date) < 10 Then NameDatei = Year(Date) & "-0" & Month(Date) Else NameDatei = Year(Date) & "-" & Month(Date)
    If Day(Date) < 10 Then NameDatei = NameDatei & "-0" & Day(Date) Else NameDatei = NameDatei & "-" & Day(Date)
    NameDatei = "" & NameDatei & "_" & Left(NameKaPaPlanung, 15) & ".pdf"
     
    SetCurrentDirectory (Pfad)
     
' -------------------- Farbdruck ----------------------------
     
    DruckerAlt = Application.ActivePrinter
    DruckerAusgabe = Sheets("Einstellungen").Range("Farbdrucker")
    If DruckerAlt = DruckerAusgabe Then
    Else
        Application.ActivePrinter = DruckerAusgabe
    End If
     
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
     
    Application.ActivePrinter = DruckerAlt
     
    Seitenansicht 'ActiveWindow.View = xlPageLayoutView
         
End Sub

Habt Ihr eine Lösung?

 

Danke Piecha

 

 

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Keine Rückmeldung nach "Druck-Makro"
 09.09.2021 11:24:12 Piecha
Solved
16.05.2022 07:58:14 Gast57461
Solved