Thema Datum  Von Nutzer Rating
Antwort
22.11.2011 13:56:19 BJJ
NotSolved
23.11.2011 15:44:05 Holger
NotSolved
25.11.2011 10:28:34 Gast10159
NotSolved
27.11.2011 18:16:14 Holger
NotSolved
Rot Drucken mit VBA
 28.11.2011 12:35:58 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
28.11.2011 12:35:58		 Views:
1314		 Rating:
     
Antwort:
  Ja
Thema:
Drucken mit VBA

Hallo Diego,

die Druckereigenschaften lassen sich auch über Objekte steuern...

 

?
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
Sub Druckerauswahl()
   '
   ' Druckerauswahl Makro
   '
   Dim strDrucker As String
   Dim strDocName As String
   Dim strFilter As String
  
   strDrucker = Application.ActivePrinter
   strDocName = ActiveDocument
   Application.ActivePrinter = "DEIN_DRUCKERNAME"   '''z. B.: "TRUCK"
   Application.PrintOut FileName:="", _
                        Range:=wdPrintAllDocument, _
                        Item:=wdPrintDocumentContent, _
                        Copies:=1, _
                        Pages:="", _
                        PageType:=wdPrintAllPages, _
                        ManualDuplexPrint:=False, _
                        Collate:=True, _
                        Background:=True, _
                        PrintToFile:=False, _
                        PrintZoomColumn:=0, _
                        PrintZoomRow:=0, _
                        PrintZoomPaperWidth:=0, _
                        PrintZoomPaperHeight:=0
                         
   ' Wenn es noch ein bestimmtes Papierfach sein sollte, z. B. Fach 3
   With ActiveDocument.PageSetup
      .FirstPageTray = wdPrinterMiddleBin ' Fach 3
      .OtherPagesTray = wdPrinterMiddleBin ' Fach 3
   End With
       'frmDrucken.Show'
   'stellt die Einstellungen des Druckers zurück
   ActivePrinter = strDrucker
   With ActiveDocument.PageSetup
      .FirstPageTray = wdPrinterAutomaticSheetFeed
      .OtherPagesTray = wdPrinterAutomaticSheetFeed
   End With
   Application.ActivePrinter = strDrucker
End Sub
 
Gruß Detlev

 

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
22.11.2011 13:56:19 BJJ
NotSolved
23.11.2011 15:44:05 Holger
NotSolved
25.11.2011 10:28:34 Gast10159
NotSolved
27.11.2011 18:16:14 Holger
NotSolved
Rot Drucken mit VBA
 28.11.2011 12:35:58 Dekor
NotSolved