Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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
GELÖST

VBA Fehler 4608 im Word 2007 beim Druckerschacht wechseln

Frage Microsoft Microsoft Office

Mitglied: H41mSh1C0R

H41mSh1C0R (Level 3) - Jetzt verbinden

26.10.2010, aktualisiert 18:27 Uhr, 6671 Aufrufe, 1 Kommentar

Hi@All,

und mal wieder ein derbes kniffliges Problem wo ich so langsam am verzweifeln bin.

- Terminal Server Umgebung
- viele viele MA
- überall die gleichen Drucker (TA LP 4235) (umgelabelte Kyocera)
- überall die gleichen Treiber passend zum LP und keine KX Variante (universaltreiber von Kyocera) der auch bei den passenden Kopierern funktioniert.

So schön einfach wie man die Schächte setzen kann scheint das nicht immer zu wollen.

01.
        .FirstPageTray = 259        ' Kopfbogen -> Kassette 2 für das 1. Blatt 
02.
        .OtherPagesTray = 258       ' Weiss     -> Kassette 1 für alle Folgeseiten
Bei 99% der Dokumente die wir hier verarbeiten funktioniert das und reicht auch.

Aber bei 1% gibt es den Fehler:

01.
Fehler 4608 - Wert ausserhalb des Definitionsbereich
OK --> mal schaun was vorher und nachher für Werte gesetzt werden

01.
Sub Kopfbogen() 
02.
 
03.
  MsgBox ActiveDocument.PageSetup.FirstPageTray    --> Liefert Wert 2 
04.
  MsgBox ActiveDocument.PageSetup.OtherPagesTray  --> Liefert Wert 11 
05.
 
06.
  For i = 1 To ActiveDocument.Sections.Count 
07.
    With ActiveDocument.PageSetup 
08.
        .FirstPageTray = 259        ' Kopfbogen -> Kassette 2 für das 1. Blatt 
09.
        .OtherPagesTray = 258       ' Weiss     -> Kassette 1 für alle Folgeseiten 
10.
    End With 
11.
  Next i 
12.
 
13.
  MsgBox ActiveDocument.PageSetup.FirstPageTray   
14.
  MsgBox ActiveDocument.PageSetup.OtherPagesTray 
15.
 
16.
End Sub
Die Werte 2 und 11 sind vorher immer da.

Bei den Dokumenten wo er es korrekt setzt steht auch beim Ende das drinnen was ich mir wünsche also 259 für Kopfbogenschacht und 258 für den Schacht mit dem weissen Papier.


Selbst wenn ich

01.
   ActiveDocument.PageSetup.FirstPageTray = 259  
02.
   ActiveDocument.PageSetup.OtherPagesTray = 258
schreibe knallt es beim FirstPageTray.

Wo liegt da der Hase begraben? Ich dreh hier schon am Rad. =(

Wenn ich den Fehler abfange und "ignoriere" dann haut er alles so raus als ob die Schächte auf Automatisch stehen, d.h. er nimmt die erste Kassette und die hat immer weisses Papier. ^^

Ergo kommt dann keine 1. Seite auf Kopfbogen sondern alles auf Weiss.

Grüße


PS:

Die Schachtangaben sind Herstellerangaben und wurden mir bereits zig mal gestätigt bzw. habe ich auch selber ausgelesen aus den Dateien ich den Printstream in eine Datei umgeleitet habe.


PSPS:

Denke habe die Ursache gefunden was den Fehler auslöst, nur kann mir nicht erklären wie das zustanden kommen soll:

normal:

7b4a69a01385c4324209a3e73d3d04f2 - Klicke auf das Bild, um es zu vergrößern

kurz bevor die Schächte gesetzt werden sollen:

dbefe174a0ae49087720f5d2c7fbeb54 - Klicke auf das Bild, um es zu vergrößern

*knall*

Klar sind ja auch keine Trays mehr vorhanden auf die korrekt gewechselt werden kann.

Wenn der Ablauf durch ist sind im Word übrigens wieder die korrekten Trays vorhanden.

*am Kopf Kratz*
Mitglied: H41mSh1C0R
26.10.2010 um 18:14 Uhr
So ich habe nun herausgefunden wieso die Schächte weg sind. =)

Das liegt schlicht daran, weil ein anderer Drucker ausgewählt wurde.

Wir erzeugen über einen virtuellen Drucker Bilder des Dokumentes und danach erfolgt ein Druck auf den physischen Drucker.

Das hin und her wechseln an sich läuft wunderbar nur wenn ich mittendrin wo er bereits zurückgewechselt hat mir die Druckereigenschaften im Word anschau dann steht dort noch der virtuelle Drucker als Standarddrucker.

Wenn das Script nun versucht bei diesem Schacht 1 und 2 zu ändern, knallt es weil es diese Schächte nicht gibt, so mein erster Gedanke.

Lange Rede kurzer Sinn:

Script angepasst und nach dem Wechseln nochmal explizit den Standarddrucker gesetzt auf dem er ja gerade steht.

Voala und schon steht auch der korrekte Drucker im Word.

Problem:

Es knallt immernoch. *Tierisch am Kopf kratz*
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
gelöst Schnellbausteine aus Word 2007 nach Word 2016 übernehmen (2)

Frage von TiTux zum Thema Microsoft Office ...

Microsoft Office
gelöst Fehler Office 365 Word (8)

Frage von killtec zum Thema Microsoft Office ...

Windows Server
Windows Domäne Anmeldung nach Benutzer wechseln mit Fehlern (6)

Frage von Kurt1990 zum Thema Windows Server ...

VB for Applications
Druckerschachtzuweisung in vba oder direkt im Druckerprofil? (3)

Frage von yoface zum Thema VB for Applications ...

Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (18)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...