Thema Datum  Von Nutzer Rating
Antwort
28.11.2017 10:23:12 Frank
NotSolved
Blau Programmabsturz beim Ausführen von Makro
 28.11.2017 11:35:00 Werner
NotSolved
28.11.2017 11:57:56 Gast20685
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
28.11.2017 11:35:00		 Views:
695		 Rating:
     
Antwort:
  Ja
Thema:
Programmabsturz beim Ausführen von Makro

Hallo Frank,

versuchs mal ohne die ganze Selectiererei

?
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
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub DruckenOverview()
If MsgBox("Moechtest du die Auswertung drucken?", vbYesNo) = vbYes Then
    Sheets("Druck Auswertung").Select
    ThisWorkbook.Worksheets("Druck Auswertung").PrintOut From:=1, To:=1, Copies:=1
End If
End Sub
 
Sub DruckenKplt()
If MsgBox("Moechtest du den kompletten Auswertungssatz drucken?", vbYesNo) = vbYes Then
    Sheets("Druck Auswertung").Select
    ThisWorkbook.Worksheets("Druck Auswertung").PrintOut From:=1, To:=1, Copies:=1
 
    With Worksheets("Druck Punkte").PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ThisWorkbook.Worksheets("Druck Auswertung").PageSetup.PrintArea = ""
    With ThisWorkbook.Worksheets("Druck Auswertung").PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.75)
        .RightMargin = Application.InchesToPoints(0.75)
        .TopMargin = Application.InchesToPoints(1)
        .BottomMargin = Application.InchesToPoints(1)
        .HeaderMargin = Application.InchesToPoints(0.5)
        .FooterMargin = Application.InchesToPoints(0.5)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ThisWorkbook.Worksheets("Druck Auswertung").PrintOut From:=1, To:=1, Copies:=1
    ThisWorkbook.Worksheets("Druck Schluessel").PrintOut From:=1, To:=1, Copies:=1
End If
End Sub

 

Gruß Werner

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
28.11.2017 10:23:12 Frank
NotSolved
Blau Programmabsturz beim Ausführen von Makro
 28.11.2017 11:35:00 Werner
NotSolved
28.11.2017 11:57:56 Gast20685
NotSolved