VonDoczuDoc.de

Hallo,

manchmal nervt es einfach : return , return, .....

Also wer weis es, wie man in einem TurboMed Komplex(-Steuerung) Rezepte, Formular ohne die Return-Taste oder sonstige Strg-P -Taste einfach den Druckvorgang auslösen kann?

Besten Dank
und Grüsse aus Kiel
Johnny

Dazu muss das Skript bearbeitet werden. In der Sektion Form_OnLoad muss die Zeile
if modus ="KomplexRun" then Formular.modified= false : Formular.print : Formular.close: Exit Sub
eingefügt werden

Beispiel:

Sub Form_OnLoad
If Modus = "ZentralDruck" Then
Set MyProfil = CreateObject("TMFTools.FormularProfile")
Set MyProfil.Formular = Formular
Else
'--Aufruf von TMFTools.dll---
Set PatForm.Formular = Formular
Set PatForm.Behandlungsfall = Behandlungsfall
If NOT PatForm.FormularOK Then Formular.close: Exit Sub
If Not Restore Then
PatForm.FuelleKopf
'-------Ende TMFTools aufruf --------

FillPatientendaten
FillArztdaten
if modus ="KomplexRun" then Formular.modified= false : Formular.print : Formular.close : Exit Sub
End If
Formular.Modified=FALSE
End If
End Sub

Bei nicht editierbaren Formularen geht das somit nicht.