Frage : VBA - geändertes immer rechtes der Druckereinstellungen nicht durchgeführt

Hallo,

I Änderung die Druckereinstellungen in einer Zuganganwendung. Die erstellten Dokumente sollten auf einem anderen Drucker als die gegenwärtigen user´s/Arbeit der Rückstellung printer.

I gelegentlich gedruckt werden. Gelegentlich nicht: Ich bedeute, dass das Dokument auf dem user´s Rückstellungsdrucker gedruckt. Es scheint, dass es auch vom Drucker abhängt, der durch den Zugang application.

Could jedes Überprüfung mein Code gewählt (Einschließung sehen) und mich what´s falsch erklärt?

Would ist es possbile, dass der falsche Code Defekt zu den Druckerfahrern auf dem user´s PC verursacht?

Many dankt im Voraus und hat einen schönen Tag! 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

Public VorsetDruckerSchacht () 
  
    Const strMethSignatur als Schnur = MODULE_NAME u. „setDruckerSchacht“ 
    
    Auf Störung Goto- METH_ERR 
    
    Schwaches arrBuffer () als lang 
    Schwaches lngLaenge als lang 
    Schwaches lngRueck als lang 
    Schwaches udtDevMode als DEVMODE 
    Schwaches udtPrintDef als PRINTER_DEFAULTS 
    Schwaches lngRet als lang 
    Schwaches lngPtrDevMode als lang 
    Schwaches lngPrinter als lang 
    Schwaches strPrinter als Schnur 
    
    'IFI: Druckernamen 
    strPrinter = gobjDrucker.Drucker 
    
    'IFI: Drucker-Zurückfällt-Struktur initialisieren sieren 
    udtPrintDef.pDatatype = 0 
    udtPrintDef.pDevMode = 0 
    udtPrintDef.DesiredAccess = PRINTER_ALL_ACCESS 
    
    'IFI: Drucker öffnen 
    lngRet = OpenPrinter (strPrinter, lngPrinter, udtPrintDef) 
    
    'IFI: Pufferlänge ermitteln 
    lngRet = GetPrinter (lngPrinter, 2, ByVal 0&, 0, lngLaenge) 
    
    'IFI: Puffer anpassen 
    ReDim arrBuffer ((lngLaenge \ 4)) 
    
    'IFI: Printerinfos ermitteln (Niveau 2) 
    lngRet = GetPrinter (lngPrinter, 2, arrBuffer (0), lngLaenge, lngLaenge) 
  
    'IFI: Zeiger auf sterben Devmode-Struktur 
    lngPtrDevMode = arrBuffer (7) 
    
    'IFI: Eigene Devmode-Struktur füllen 
    CopyMemory udtDevMode, ByVal lngPtrDevMode, Len (udtDevMode) 
    
    'IFI: Jetzt Schacht auswählen (1. Blatt = erstBlatt, Trennblatt = Trennblatt) 
    udtDevMode.dmDefaultSource = gobjDrucker.erstBlattID 
      
    'IFI: Änderungen zurück ein Würfel ursprüngliche Speicherstelle 
    CopyMemory ByVal lngPtrDevMode, udtDevMode, Len (udtDevMode) 
    
    'IFI: Jira #08010LW-87: Druckereinstellungen ändern 
    lngRet = DocumentProperties (0, lngPrinter, strPrinter, udtDevMode, udtDevMode, DM_IN_BUFFER) 
    
    lngRet = setPrinter (lngPrinter, 2, arrBuffer (0), 0) 
    
    'IFI: Anwendungen über sterben Änderungen informieren 
    lngRet = SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, strPrinter) 
    
    'IFI: Drucker schließen 
    lngRet = ClosePrinter (lngPrinter) 
    

METH_EXIT: 
    Herausnehmen Unterseeboot ehmen 
    
METH_ERR: 
    MsgBoxMitErl strMethSignatur 
    Zusammenfassung METH_EXIT 
    Zusammenfassung 

Enden-Unterseeboot

Antwort : VBA - geändertes immer rechtes der Druckereinstellungen nicht durchgeführt

Es gibt zweifellos:

Erhalten-Briefkasten | ForEach {- Briefkasten Erhalten-ActiveSyncDeviceStatistics: $_.Identity} | ft-Identität, Devicetype, DeviceUserAgent, LastSuccessSync
Weitere Lösungen  
 
programming4us programming4us