Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Per Makro auf Medientypen drucken

Frage Microsoft Microsoft Office

Mitglied: weber-rdg

weber-rdg (Level 1) - Jetzt verbinden

01.10.2008 um 09:32 Uhr, 3804 Aufrufe

Moin moin,

bisher haben wir über vier Knöpfe in einer Leiste bei Word den gewünschten Ausdruck angestoßen:
Blanko, alle Seiten 1 bis n auf Briefpapier, aktuelle Seite auf Seite 1 Briefpapier und aktuelle Seite auf Seite 2 Briefpapier.
Blanko war direkt zum Drucker, die anderen drei hatten ein VBA-Script hinterlegt:

01.
Sub Druck1b1_2b2bis() 
02.
03.
' druckt alle Seite 1 bis N auf Briefpapier 
04.
05.
    Options.DefaultTray = "Kassette 2" 
06.
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ 
07.
        wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _ 
08.
         Collate:=True, Background:=True, PrintToFile:=False 
09.
    Options.DefaultTray = "Kassette 3" 
10.
    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ 
11.
        wdPrintDocumentContent, Copies:=1, Pages:="2-", PageType:=wdPrintAllPages _ 
12.
        , Collate:=True, Background:=True, PrintToFile:=False 
13.
    Options.DefaultTray = "Kassette 1" 
14.
End Sub 
15.
Sub drucke_ab1() 
16.
17.
' druckt aktuelle Seite auf Seite 1 Briefpapier 
18.
19.
    Options.DefaultTray = "Kassette 2" 
20.
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _ 
21.
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ 
22.
        Collate:=True, Background:=True, PrintToFile:=False 
23.
    Options.DefaultTray = "Kassette 1" 
24.
End Sub 
25.
Sub drucke_ab2() 
26.
27.
' druckt aktuelle Seite auf Seite 2 Briefpapier 
28.
29.
    Options.DefaultTray = "Kassette 3" 
30.
    Application.PrintOut FileName:="", Range:=wdPrintCurrentPage, Item:= _ 
31.
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ 
32.
        Collate:=True, Background:=True, PrintToFile:=False 
33.
    Options.DefaultTray = "Kassette 1" 
34.
End Sub
Das Funktioniert auch soweit ganz gut. Da wir nur Kyocera - Drucker einsetzen spricht er auch generell auf Kassette 1,2 oder 3 an.
Jetzt das große ABER: Wenn Kassette 1 leer ist, nimmt er automatisch aus Kassette 2 usw.! Was von der technischen Ansicht ja auch völlig richtig ist. Nur so wird gerne mal anstelle Blanko die erste Seite des Geschäftspapier genommen, weil irgendwer nicht aufgefüllt hat.
Der Gedanke ist nun: Wenn wir nicht die Kassetten, sondern die Medientypen ansprechen, hält der Drucker an, sobald der Medientyp leer ist... Das haben wir auch schon getestet, indem wir Medientypen am Drucker eingestellt und über den Druckdialog bei Zufuhr die "Autom. Quellenauswahl" belassen haben. Der Druck direkt auf den Medientyp lief problemlos. Papier raus und schon wollte er nicht mehr.
Nun ist die Frage: Wie spreche ich aus VBA die Medientypen an? Ich habe mir schon die Finger wund-gegoogelt aber entweder nicht die richtigen Suchbegriffe gehabt oder einfach nur Blind gewesen, jedenfalls habe ich nichts gefunden.
Kassette 1 = Blanko-Papier = Normalpapier
Kassette 2 = 1. Seite Geschäftspapier = Vordrucke
Kassette 3 = n. Seite Geschäftspapier = Recycling
(Ist zumindest die erste Festlegung.)

Ich bin für jede Idee und Anregung dankbar.

Mir ist inzwischen aufgefallen, dass das Ziel nur bei Kyocera "Medientyp" heißt. HP nennt es Papierart (LaserJet4L) oder Papiersorte (DeskJet 970Cxi), Samsung bezeichnet es als Papiertyp.
Hat mir aber auch nicht wirklich weitergeholfen...

Gruß
Björn
Neuester Wissensbeitrag
Microsoft

Lizenzwiederverkauf und seine Tücken

(5)

Erfahrungsbericht von DerWoWusste zum Thema Microsoft ...

Ähnliche Inhalte
VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Drucker und Scanner
gelöst PCL-Drucker drucken nur Hieroglyphen (5)

Frage von diwaffm zum Thema Drucker und Scanner ...

Windows Server
Drucken via RDP, Papier kommt aus falschem Schacht

Frage von torcolato zum Thema Windows Server ...

Microsoft Office
gelöst Makro wird beim öffnen Vorlage nicht ausgeführt (8)

Frage von Sunny89 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (17)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (16)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...