Hallo
bei folgendem Code
Spoiler anzeigen
Func GenerateKeyFile($nKeys, $Password, $Filename); Der zufälige 8-stellige Zahlenstring wird in Datei geschrieben (unverschlüsselt)
Local $Data = "", $i, $File
For $i = 1 To $nKeys
$Data &= RandomKey() & @CRLF & @CRLF & @CRLF
Next
;~ $Data = _StringEncrypt(1, $Data, $Password)
$File = FileOpen($Filename, 2)
FileWrite($File, $Data)
Local $print = _FilePrint($File)
If $print Then
MsgBox(0, "Bonusausdruck", "Bonusliste wurde erstellt und ausgedruckt.")
Else
MsgBox(0, "Bonusausdruck", "Fehler: " & @error & @CRLF & "Bonusliste wurde nicht ausgedruckt.")
EndIf
FileClose($File)
EndFunc ;==>GenerateKeyFile
bekomme ich laufend den Fehler 10
Läuft auf Windows XP. Drucker an LPT1 (HP Laserjet) als Standard.
Die Datei wird auf das Filesystem geschrieben, aber eben nicht ausgedruckt. Es ist eine ordinäre TXT Datein.
Gruß Hassan