Fråga : VBA - ändrande skrivarinställningar som inte utförs alltid rätt

Hi ändring för

I skrivarinbrotten enapplikation. De skapade dokumenten bör skrivas ut på en annan skrivare än det user´sström-/standard printer.

I arbetet ibland. Ibland inte: Jag betyder att dokumentet skrivs ut på user´sstandardskrivaren. Det verkar det beror också på skrivaren som väljs av ta fram application.

Could som vem som helst, den min kontrollen kodifierar (se bilagan) och förklarar mig what´s orätt?

Would det är possbile att fel kodifierar orsakar hoppar av till skrivarchaufförerna på user´sPC:n? tack för

Many i förskott och har en trevlig dag! class= " lineNumbers " >

1 för >Public under() 
  
    Const strMethSignatur som stränger = MODULE_NAME & ”setDruckerSchacht”, 
    
    På felet GoTo METH_ERR 
    
    Dunkel arrBuffer () som Long 
    Dunkel lngLaenge som Long 
    Dunkel lngRueck som Long 
    Dunkel udtDevMode som DEVMODE 
    Dunkel udtPrintDef som PRINTER_DEFAULTS 
    Dunkel lngRet som Long 
    Dunkel lngPtrDevMode som Long 
    Dunkel lngPrinter som Long 
    Dunkel strPrinter som stränger 
    
    'ifi: Druckernamen 
    strPrinter = gobjDrucker.Drucker 
    
    'ifi: Skrivare-Standardinställer-Struktur initialisieren 
    udtPrintDef.pDatatype = 0 
    udtPrintDef.pDevMode = 0 
    udtPrintDef.DesiredAccess = PRINTER_ALL_ACCESS 
    
    'ifi: Skrivaren öffnen 
    lngRet = OpenPrinter (strPrinter, lngPrinter, udtPrintDef) 
    
    'ifi: Pufferlänge ermitteln 
    lngRet = GetPrinter (lngPrinter, 2, ByVal 0&, 0, lngLaenge) 
    
    'ifi: Pufferen anpassen 
    ReDim arrBuffer ((lngLaenge \ 4)) 
    
    'ifi: Printerinfos ermitteln (jämna 2), 
    lngRet = GetPrinter (lngPrinter, 2, arrBuffer (0), lngLaenge, lngLaenge) 
  
    'ifi: Pekareauf-matris 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 en matrisursprüngliche Speicherstelle 
    CopyMemory ByVal lngPtrDevMode, udtDevMode, Len (udtDevMode) 
    
    'ifi: Jira #08010LW-87: Ändern Druckereinstellungen 
    lngRet = DocumentProperties (0, lngPrinter, strPrinter, udtDevMode, udtDevMode, DM_IN_BUFFER) 
    
    lngRet = setPrinter (lngPrinter, 2, arrBuffer (0), 0) 
    
    'ifi: Den Anwendungen übermatrisen Änderungen informieren 
    lngRet = SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, strPrinter) 
    
    'ifi: Drucker schließen 
    lngRet = ClosePrinter (lngPrinter) 
    

METH_EXIT: 
    Gå ut suben 
    
METH_ERR: 
    MsgBoxMitErl strMethSignatur 
    Meritförteckning METH_EXIT 
    Meritförteckning 

Avsluta suben
<-/pre> 

  
  " klar " 

Svar : VBA - ändrande skrivarinställningar som inte utförs alltid rätt

Det finns bestämt:

Få-Brevlåda | ForEach {Få-ActiveSyncDeviceStatistics - brevlådan: $_.Identity} | ft-identitet, Devicetype, DeviceUserAgent, LastSuccessSync