Script aus Access starten zum drucken einer Datei

Wilhelm1

Hallo,

ich muss in MS-Access per VBA eine Text-Datei drucken. Leider kann ich in Access den Drucker nicht konfigurieren, z.B. Duplex einstellen. Wäre es möglich für diese Druckereinstellungen ein Autoit Script zu schreiben und dieses dann von Access aus z starten?

Gruss, Wilhelm1

**Andy**

Hallo Wilhelm1,
sobald du aus Access ein compiliertes AutoIt-Script (*.Exe-Datei) starten kannst , welches dann die Druckereinstellung übernimmt, sollte das kein Problem sein.
Allerdings kannst du auch "direkt" ein AutoIt/VBS-Script aufrufen, sollte auch per VBA gehen m.E., obwohl ich ehrlich gesagt schon jahrelang nichts mehr mit Access gemacht habe.

Spoiler anzeigen

Code

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Example WSH Script (VBScript)
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


' Require Variants to be declared before used
Option Explicit 




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Declare Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Dim oShell
Dim oAutoIt




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Initialise Variables & Objects
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


Set oShell = WScript.CreateObject("WScript.Shell")
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Start of Script
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


WScript.Echo "This script will run some test calculations"


oShell.Run "calc.exe", 1, FALSE


' Wait for the calc window to become active
oAutoIt.WinWaitActive "Rechner", ""


' Send some keystokes to calc
oAutoIt.Send "2*2="
oAutoIt.Sleep 500
oAutoIt.Send "4*4="
oAutoIt.Sleep 500
oAutoIt.Send "8*8="
oAutoIt.Sleep 1500
oAutoIt.WinClose "Rechner", ""
oAutoIt.WinWaitClose "Rechner", ""


WScript.Quit

Alles anzeigen

Das ist ein "standalone"-VBS, einfach als *.VBS Datei abspeichern und doppelklicken. Du kannst also alle( ? ) AutoIt-Befehle auch in anderen Sprachen nutzen, mit Sicherheit auch in VBA.
Somit steuerst du die Druckausgabe (oder sonst irgendetwas) "direkt" per Autoit aber innerhalb deines VBA-Codes, sollte am einfachsten sein.....
ciao
Andy