View Categories

MCOPENFRM.PAGENUMBERSTOPRINT

//Scriptfunktion 'MCOPENFRM.PAGENUMBERSTOPRINT'
// Allgemeine Funktionen zum Speichern, Exportieren und Generieren von PDFs aus Formularen.
// Stellt die Seiten ein die gedruckt, ausgegeben werden sollen


//Parameter:
// Seitenzahlen durch komma getrennt


//Beispiel:
//Bitte verbessern Sie den folgenden Text: Ein Beispiel-Skript, das auf dem Desktop das Dokument "Blatt1-1B" zum aktuellen Patienten als PDF ausgibt.
//Dieses Mal werden jedoch nur die Seiten 1 und 2 ausgegeben.


EXISTSPRN=MCOPENFRM.EXISTS_PDF_PRINTER{}

IFBLOCK{EXISTSPRN=True}
	STAMP=TIMESTAMP{}
	//Standardscripte Ausführen
	RES=RUN{{APPPATH}\CONFIG\SCRIPTS\DRVDOKU.MCFSCR,*,*,False}
	RES=RUN{{APPPATH}\CONFIG\SCRIPTS\KTLOPS.MCFSCR,*,*,False}
	//DRV Blatt 1 öffnen
	RES=MCOPENFRM.OPEN{{APPPATH}\Formular\DRV_G0810_Aerztlicher_Entlassungsbericht_2021\Blatt1.apf,DRV-Bericht}

	//Variablen, die im Speicher befindlich sind, werden automatisch in Formularfelder eingetragen.
	RES=MCOPENFRM.SETVARTOFIELDS{}

	//In MCDMS generierte Unterschriften werden anhand der DRVDOKU.MCFSCR erstellt und mit den Unterschriftenfeldern im Formular verbunden.
	RES=MCOPENFRM.SETSIGNATURE{{SIGNATURARZT1ID},{SIGNATURARZT2ID},{SIGNATURARZT3ID},{SIGNATURARZT4ID},False,False}

	//Formular drucken
	RES=MCOPENFRM.PAGENUMBERSTOPRINT{1{$K}2}
	RES=MCOPENFRM.PRINTTOPDF{{SYSDIR_DESKTOP}\TEST{STAMP}.PDF,0,1,60}
	RES=MCOPENFRM.CLOSE{}
ELSE
	RES=DLGMESSAGE{Kein PDF-Drucker installiert!}
ENDIF

RESULT=MCOPENFRM.PAGENUMBERSTOPRINT{Seiten durch Komma Getrennt}