Danke
Thomas
dim x as variant
x=shell("C:\test.bat", vbNormalFocus)
viel Spaß,
Sam
(Die datei soll das Etikettendruckprogramm Lable Matrix dazu veranlassen das ein Etikett gedruckt wird, geht auch wenn ich die bat Datei ganz normal per doppelclick starte)
makro:
Private Sub CMD_drucken_Click()
Dim x As Variant
x = Shell("C:\drucken.bat", vbNormalFocus)
End Sub
bat Datei:
c:
cd Programme
cd Lable Matrix
cd lmw32
LMWPRINT /L=r:\etiketten\616221d.qdf/C=10
makro:
Private Sub CMD_drucken_Click()
Dim x As Variant
x = Shell("C:\drucken.bat", vbNormalFocus)
End Sub
bat Datei:
c:
cd Programme
cd Lable Matrix
cd lmw32
LMWPRINT /L=r:\etiketten\616221d.qdf/C=10
dann mach doch den Shell-Aufruf direkt so:
Shell "C:\Programme\Lable Matrix\Imw32\LMWPRINT.exe /L=r:\etiketten\616221d.qdf/C=10", vbNormalFocus
Viel Spaß,
Andreas
wenn der doppelklick funktioniert, könnte es am Arbeitsverzeichnis liegen. Ich empfehle dir die letzte zeile exakter mit gesamten Pfad auszuführen:
c:\Programme\Lable Matrix\LMW32\LMWPRINT /L=r:\Etiketten\616221d.qdf/C=10
Gruß,
Sam
hth
Any