VonDoczuDoc.de

Eine Frage an die Programmier-Profis:

Ich möchte mein selbsterstelltes Formular bei Mouseklick auf die Schaltfläche "Drucken_2" zweimal drucken und dann das Formular schließen.
Dabei ergeben sich folgende (für mich nicht verständliche) Fehler:

Script-Version 1:

Sub Drucken_2_MouseClick( ByVal Button , ByVal Index )
If neu = "neu" Then
karteieintrag
rechnungsnummerspeichern
end if
formular.print
formular.print
Formular.close
End Sub

Ergebnis: Das Formular wird 2x gedruckt und TurboMed stürzt ab.

Script-Version 2:
Sub Drucken_2_MouseClick( ByVal Button , ByVal Index )
If neu = "neu" Then
karteieintrag
rechnungsnummerspeichern
end if
formular.print
formular.print
TMTools.MsgBox "Rechnung wurde 2x gedruckt"
Formular.close
End Sub

Ergebnis: Das Formular wird 3mal gedruckt. Das Formular wird geschlossen und TurboMed läuft problemlos.

Script-Version 3:

Sub Drucken_2_MouseClick( ByVal Button , ByVal Index )
If neu = "neu" Then
karteieintrag
rechnungsnummerspeichern
end if
formular.print
TMTools.MsgBox "Rechnung wurde 1x gedruckt"
formular.print
'TMTools.MsgBox "Rechnung wurde 2x gedruckt"
Formular.close
End Sub

Ergebnis: Das Formular wird 2mal gedruckt. Das Formular wird geschlossen und TurboMed läuft problemlos.
Dies wäre zwar das gewünschte Ergebnis. Ich will aber die unnötigen Anzeigen der Messagebox vermeiden.

Wo ist mein(?) Fehler bzw. gibt es Alternativen?

Danke baerdoc

Lassen sie den Befehl formular.close mal ganz weg oder setzen sie den Befehl formular.close unter end sub
Dann testen Sie die Versionen noch einmal durch. Viel erfolg.

Vielen Dank für die Antwort. Hatte leider bis heute keine Zeit es zu testen.

Folgendes Ergebnis:
1.)
formular.close unter end sub schließt das Formular sofort. Eine Auswahl des Druck-Buttons ist nicht möglich. Turbomed läuft normal weiter.

2.)
Sub Drucken_2_MouseClick( ByVal Button , ByVal Index )
If neu = "neu" Then
karteieintrag
rechnungsnummerspeichern
end if
formular.print
formular.print
End Sub

Das Formular wird 3x gedruckt, Turbomed stürzt ab.