Вопрос : VBA - измененное исполненное правое установок принтера всегда

Hi, изменение

I установки принтера в доступ-применении. Созданные документы должны быть напечатаны на другом принтере чем user´s в настоящее время/работа невыполнения обязательства printer.

I время от времени. Время от времени не: Я намереваюсь документ напечатан на принтере невыполнения обязательства user´s. Он кажется он зависит также на принтере выбранном доступом application.

Could кто-нибудь проверка мое Кодий (см. приложение) и объясняет меня what´s неправильно?

Would он possbile что неправильное Кодий причиняет дефект к водителям принтера на pc user´s?

Many благодарит заранее и имеет славный день! class= " lineNumbers " >

1 >
Public Sub () 
  
    strMethSignatur Const как шнур = MODULE_NAME & «setDruckerSchacht» 
    
    На ошибке переход METH_ERR 
    
    Тусклое arrBuffer () как длиной 
    Тусклое lngLaenge как длиной 
    Тусклое lngRueck как длиной 
    Тусклое udtDevMode как DEVMODE 
    Тусклое udtPrintDef как PRINTER_DEFAULTS 
    Тусклое lngRet как длиной 
    Тусклое lngPtrDevMode как длиной 
    Тусклое lngPrinter как длиной 
    Тусклое strPrinter как шнур 
    
    'ifi: Druckernamen 
    strPrinter = gobjDrucker.Drucker 
    
    'ifi: Принтер-Не выполняет-Struktur обязательство initialisieren 
    udtPrintDef.pDatatype = 0 
    udtPrintDef.pDevMode = 0 
    udtPrintDef.DesiredAccess = PRINTER_ALL_ACCESS 
    
    'ifi: Принтер öffnen 
    lngRet = OpenPrinter (strPrinter, lngPrinter, udtPrintDef) 
    
    'ifi: Ermitteln Pufferlänge 
    lngRet = GetPrinter (lngPrinter, 2, ByVal 0&, 0, lngLaenge) 
    
    'ifi: Скалозуб anpassen 
    arrBuffer ReDim ((lngLaenge \ 4)) 
    
    'ifi: Ermitteln Printerinfos (уровень 2) 
    lngRet = GetPrinter (lngPrinter, 2, arrBuffer (0), lngLaenge, lngLaenge) 
  
    'ifi: Auf указателя умирает Devmode-Struktur 
    lngPtrDevMode = arrBuffer (7) 
    
    'ifi: Eigene Devmode-Struktur füllen 
    udtDevMode CopyMemory, lngPtrDevMode ByVal, Len (udtDevMode) 
    
    'ifi: Jetzt Schacht auswählen (1. Blatt = erstBlatt, Trennblatt = Trennblatt) 
    udtDevMode.dmDefaultSource = gobjDrucker.erstBlattID 
      
    'ifi: Zurück Änderungen ursprüngliche Speicherstelle плашки 
    lngPtrDevMode CopyMemory ByVal, 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: Über Anwendungen умирает Änderungen informieren 
    lngRet = SendMessage (HWND_BROADCAST, WM_WININICHANGE, 0, strPrinter) 
    
    'ifi: Drucker schließen 
    lngRet = ClosePrinter (lngPrinter) 
    

METH_EXIT: 
    Выходите подводная лодка 
    
METH_ERR: 
    strMethSignatur MsgBoxMitErl 
    Резюме METH_EXIT 
    Резюме 

Подводная лодка конца
class= " ясное " >  

  
  class= 

Ответ : VBA - измененное исполненное правое установок принтера всегда

Некоторо является следующим:

Получать-Почтовый ящик | ForEach {Получите-ActiveSyncDeviceStatistics - почтовый ящик: $_.Identity} | тождественность ft, Devicetype, DeviceUserAgent, LastSuccessSync