Projet en cours: gestion d'impression en texte ET graphique

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Eh, on frôle la perfection ! je suis en train de coder l'impression des images, ça fait pas mal de paramètres à fournir, mais c'est ça l'informatique: on fait le travail une fois pour toutes, et ensuite c'est l'ordinateur qui fait le boulot de tous les jours.

PS J'ai toujours un access violation dans KGF.dll.

Projet en cours: gestion d'impression en texte ET graphique - Page 2 Access

J'avais cru trouver pourquoi: je donnais l'adresse d'un élément de tableau: ADR(img$(k%)) au lieu d'un string, mais j'ai changé et c'est autre chose...

Je ne doute pas que c'est moi qui donne un mauvais paramètre à la dll quelque part, mais c'est pas facile à trouver.

Pour le moment, on ne peut pas utiliser adr() sur un tableau ou un élément d'un tableau. On ne peut utiliser que des variables simples. Donc, ton code devrait contenir quelque chose ressemblant à cela:

Citation :: dim nom_image$

nom_image$ = "mon_image.jpg"
' ou
nom_image$ = img$(k%)

' suivi de l'appel à ma DLL, en passant adr(nom_image$) en paramètre !

Dans ce cas, cela marche. Je te montre la partie concernée du code de mon programme avec lequel je teste ma DLL:

Code:: s$ = text$(123) : ' edit contenant le nom du fichier
n% = val(text$(125)) : edit contenant la largeur souhaitée
x% = val(text$(126)) : edit contenant la hauteur souhaitée
i% = dll_call6("PrinterFunction",7,adr(phnd%),adr(chnd%),adr(s$),n%,x%)

Ce code marche.

J'ai adapté mon programme de démo d'impression pour récupérer les dimensions de la zone imprimable de la page. Voici le résultat:

Code:: dim i%, j%, phnd%, chnd%, dh, dv, lg%, ht%, horz, vert, pi2, fact, s$
dim x%, y%, t%, p%, cf%, cb%, n%, chform%

' charger la DLL
dll_on "KGF.dll"

' spécifier le titre pour le queue manager de Windows
s$ = "Test Impression KGF.DLL"
i% = dll_call4("PrinterManager",6,adr(phnd%),adr(s$),len(s$))

' début d'impression
i% = dll_call4("PrinterManager",1,adr(phnd%),adr(chnd%),0)

' boucle pour imprimer des rectangles de couleur aléatoire
pi2 = 3.14159/2.0
' récupérer la largeur imprimable
n% = 7
horz = dll_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),n%,0,0)
' récupérer la hauteur imprimable
n% = 8
vert = dll_call6("PrinterFunction",8,adr(phnd%),adr(chnd%),n%,0,0)
for j%=1 to 255
fact = cos((pi2/255)*j%)
x% = int((horz/2.0)*(1-fact) + 0.5)
y% = int((vert/2.0)*fact + 0.5)
lg% = int(horz*fact +0.5)
ht% = int(vert*(1-fact) + 0.5)
' couleur aléatoire, fond transparent, épaisseur 1
cf% = (int((rnd(255)))*256+int(rnd(255)))*256+int(rnd(255)) : ' couleur du dessin
cb% = -2 : ' fond transparent
n% = 1 : ' épaisseur du trait
i% = dll_call6("PrinterFunction",6,adr(phnd%),adr(chnd%),cf%,cb%,n%)
' positionner sur le coin en haut à gauche du rectangle
n% = 0 : ' absolu
i% = dll_call6("PrinterFunction",4,adr(phnd%),adr(chnd%),n%,x%,y%)
' tracer le rectangle
p% = 1 : ' rectangle
i% = dll_call6("PrinterFunction",2,adr(phnd%),adr(chnd%),p%,lg%,ht%)
next j%

' couleur bleue sur fond transparent, épaisseur 50
cf% = 255*256*256 : ' couleur du dessin
cb% = -2 : ' fond transparent
n% = 50 : ' épaisseur du trait
i% = dll_call6("PrinterFunction",6,adr(phnd%),adr(chnd%),cf%,cb%,n%)

' positionner sur le coin en haut à gauche du rectangle à tracer
n% = 0 : ' absolu
x% = 1500
y% = 500
i% = dll_call6("PrinterFunction",4,adr(phnd%),adr(chnd%),n%,x%,y%)

' tracer un rectangle bleu eux coins arrondis
p% = 1 + 256 : ' rectangle arrondi
lg% = 2000
ht% = 500
i% = dll_call6("PrinterFunction",2,adr(phnd%),adr(chnd%),p%,lg%,ht%)

' positionner sur coin en haut à gauche du texte à imprimer
n% = 0 : ' absolu
x% = 1700
y% = 600
i% = dll_call6("PrinterFunction",4,adr(phnd%),adr(chnd%),n%,x%,y%)

' police Arial taille 24 en gras et italique
s$ = "Arial" : ' nom police
n% = 24 + 256 + 512 : ' taille police + gras + italique
cf% = 255 : ' couleur texte
i% = dll_call6("PrinterFunction",5,adr(phnd%),adr(chnd%),adr(s$),cf%,n%)

' imprimer un texte avec le fond transparent
n% = 1 : ' fond transparent
s$ = "Démo Impression"
i% = dll_call6("PrinterFunction",1,adr(phnd%),adr(chform%),adr(s$),len(s$),n%)

' fin impression
i% = dll_call4("PrinterManager",3,adr(phnd%),adr(chnd%),0)
message "Le test est terminé !"

' décharger la DLL
dll_off
terminate

end

Hallo an alle,

hier Info zum Programm:

Testprogramm für Print.dll von Klaus. Für
Berichte, Studie u.s.w.

Zum Testen >>> PDF24Editor <<< nehmen

Kann mir einer helfen bei folgenden Routinen:

1. Druckerauswahl
2. Anzahl Kopien

Danke für die Hilfe

Hello everyone,

Info here about the program:

Test program for Print.dll Klaus. For
Reports, study u.s.w.

Can any one help me with the following routines:

1. Print Center
2. Number of copies

Thanks for the help

Bonjour à tous,

Info ici sur le programme:

Programme de test pour Print.dll Klaus. Pour
Rapports, études u.s.w.

Peut-on m'aider avec les routines suivantes:

1. Centre d'impression
2. Nombre de copies

Merci pour l'aide

Code:: ' ******************************************************************************
' *************** Druckaufbereitung für PDF24EDITOR ****************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' ******************************************************************************
' TEST DER Print.DLL FÜR VORDRUCKE *********************************************
' ******************************************************************************
label Ende
label Ende1
'
' ******************************************************************************
' VARIABLEN FÜR DRUCKEN DEFINIEREN *********************************************
' ******************************************************************************
'
dim DRUCK_a
'
dim DRUCK_i%
dim DRUCK_j%
dim DRUCK_phnd%
dim DRUCK_chnd%
dim DRUCK_dh
dim DRUCK_dv
dim DRUCK_lg%
dim DRUCK_ht%
dim DRUCK_horz
dim Druck_vert
dim DRUCK_horz_mm
dim Druck_vert_mm
'
dim DRUCK_pi2
dim DRUCK_fact
dim DRUCK_s$
dim DRUCK_WIN_s1$
'
dim DRUCK_X%
dim DRUCK_y%
dim DRUCK_t%
dim DRUCK_p%
dim DRUCK_cf%
dim DRUCK_cb%
dim DRUCK_n%
dim DRUCK_Breite%
dim DRUCK_Hoehe%
DIM DRUCK_horz_FAK
DIM DRUCK_vert_FAK
'
dim DRUCK_chform%
'
dim DRUCK_RAND_LINKS%
dim DRUCK_RAND_OBEN%
dim DRUCK_RAND_RECHTS%
dim DRUCK_DATUM$
dim DRUCK_SEITE1$
dim DRUCK_SEITE2$
dim DRUCK_SEITE3$
'
dim DRUCK_Firmatext1_Links$
dim DRUCK_Firmatext2_Links$
dim DRUCK_Firmatext3_Links$
'
dim DRUCK_Firmatext1_Rechts$
dim DRUCK_Firmatext2_Rechts$
dim DRUCK_Firmatext3_Rechts$
'
dim DRUCK_Titeltext1_Mitte$
dim DRUCK_Titeltext2_Mitte$
dim DRUCK_Titeltext3_Mitte$
'
dim nom$
dim ret%
'
'
dim DRUCK_BreiteBild%
dim DRUCK_HoeheBild%
dim Image_name$
'
dim DRUCK_Textlaenge
dim DRUCK_Textlaenge1
'
' *********************************************************************************************************************
' VARIABLE INITIZALISIEREN ********************************************************************************************
' *********************************************************************************************************************
DRUCK_RAND_LINKS% = 20 :' mm
DRUCK_RAND_OBEN% = 5 :' mm
DRUCK_RAND_RECHTS% = 5 :' mm
'
DRUCK_SEITE1$ = " 1"
DRUCK_SEITE2$ = "999"
'
' DRUCK_Firmatext1_Links$ = "12345678901234567890" :' Blatt eigene Firma 1. Zeile Mitte - 20 Zeichen
' DRUCK_Firmatext2_Links$ = "1234567890123456789012" :' Blatt eigene Firma 2. Zeile Mitte - 22 Zeichen
' DRUCK_Firmatext3_Links$ = "1234567890123456789012345" :' Blatt eigene Firma 3. Zeile Mitte - 25 Zeichen
'
DRUCK_Firmatext1_Links$ = "PANORAMIC" :' Blatt eigene Firma 1. Zeile Mitte - 20 Zeichen
DRUCK_Firmatext2_Links$ = "Frankreich" :' Blatt eigene Firma 2. Zeile Mitte - 22 Zeichen
DRUCK_Firmatext3_Links$ = "Paris" :' Blatt eigene Firma 3. Zeile Mitte - 25 Zeichen
'
DRUCK_Firmatext1_Rechts$ = "PANORAMIC"
DRUCK_Firmatext2_Rechts$ = "Frankreich"
DRUCK_Firmatext3_Rechts$ = "Paris"
'
DRUCK_Titeltext1_Mitte$ = "PANORAMIC EDITOR" :' Blatt Titel 1. Zeile Mitte - 33 Zeichen
DRUCK_Titeltext2_Mitte$ = "Alle Befehle für die Programmierung mit PANORAMIC" :' Blatt Titel 2. Zeile Mitte - 63 Zeichen
'
' *********************************************************************************************************************
' DRUCKER VORBEREITUNG ************************************************************************************************
' *********************************************************************************************************************
'
'
'
'
'
' *********************************************************************************************************************
' LADEN DER Print.DLL *************************************************************************************************
' *********************************************************************************************************************
'
dll_on "Print.dll"
'
' *********************************************************************************************************************
' Drucker auswählen ***************************************************************************************************
' *********************************************************************************************************************
'
goto ende
'
nom$ = string$(255," ")
ret% = dll_call2("SelectWindowsPrinter",adr(nom$),len(nom$))
'
ende:
' *********************************************************************************************************************
' ERSTELLEN DES TITEL FÜR DEN DRUCKER-MANAGER VON WINDOWS *************************************************************
' *********************************************************************************************************************
'
DRUCK_WIN_s1$ = "Testdruck Print.DLL"
'
DRUCK_i% = dll_call4("PrinterManager",6,adr(DRUCK_phnd%),adr(DRUCK_WIN_s1$),len(DRUCK_WIN_s1$))
'
' *********************************************************************************************************************
' STARTEN DES DRUCKVORGANGES ******************************************************************************************
' *********************************************************************************************************************
'
DRUCK_i% = dll_call4("PrinterManager",1,adr(DRUCK_phnd%),adr(DRUCK_chnd%),0)
'
' *********************************************************************************************************************
' PRÜFEN DER BEDRUCKBAREN BREITE UND HÖHE *****************************************************************************
' *********************************************************************************************************************
'
REM 8 = Rückkehr mit der Dimension des Blattes
'
REM opt1% = Code Rückgabewert
REM 1 PHYSICALOFFSETX eine horizontale Verschiebung in Pixel
REM 2 PHYSICALOFFSETY vertikalen Versatz in Pixel
REM 3 PHYSICALWIDTH Breite in Pixeln
REM 4 PHYSICALHEIGHT Höhe in Pixeln
REM 5 LOGPIXELSX horizontale Auflösung in Pixel / Zoll
REM 6 LOGPIXELSY vertikale Auflösung in Pixel / Zoll
REM 7 HORZRES Breite in Pixeln
REM 8 VERTRES nützlich Höhe in Pixeln
REM 9 HORZSIZE Breite in Millimeter
REM 10 VERTSIZE Nutzhöhe in Millimetern
'
' *********************************************************************************************************************
' ERMITTELN DER PAPIERBREITE in mm ************************************************************************************
' *********************************************************************************************************************
'
DRUCK_Breite% = 9 :' 9 = Breite in Millimeter
'
DRUCK_horz_mm = dll_call6("PrinterFunction",8,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_Breite%,0,0)
'
' Anzeige auf Form *************************************************************
'
Print "Papierbreite ";DRUCK_horz_mm;" mm"
Print ""
'
' ******************************************************************************
' ERMITTELN DER PAPIERBREITE in Pixel ******************************************
' ******************************************************************************
'
DRUCK_Breite% = 7 :' 7 = Breite in Pixel
'
DRUCK_horz = dll_call6("PrinterFunction",8,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_Breite%,0,0)
'
' Anzeige auf Form *************************************************************
'
Print "Papierbreite ";DRUCK_horz;" pixel"
Print ""
'
DRUCK_horz_FAK = DRUCK_horz/DRUCK_horz_mm
'
' Anzeige auf Form *************************************************************
'
Print "1 mm = ";DRUCK_horz/DRUCK_horz_mm
Print ""
'
' ******************************************************************************
' ERMITTELN DER PAPIERHÖHE in mm ***********************************************
' ******************************************************************************
'
DRUCK_Hoehe% = 10 :' 10 = Höhe in Millimetern
'
DRUCK_vert_mm = dll_call6("PrinterFunction",8,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_Hoehe%,0,0)
'
' Anzeige auf Form *************************************************************
'
Print "Papierhöhe ";DRUCK_vert_mm;" mm"
Print ""
'
' ******************************************************************************
' ERMITTELN DER PAPIERHÖHE in Pixel ********************************************
' ******************************************************************************
'
DRUCK_Hoehe% = 8 :' 8 = Höhe in Pixel
'
DRUCK_vert = dll_call6("PrinterFunction",8,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_Hoehe%,0,0)
'
' Anzeige auf Form *************************************************************
'
Print "Papierhöhe ";DRUCK_vert;" pixel"
Print ""
'
DRUCK_vert_FAK = DRUCK_vert/DRUCK_vert_mm
'
Print "1 mm = ";DRUCK_vert/DRUCK_vert_mm
Print ""
'
' *********************************************************************************************************************
' *********************************************************************************************************************
' A4 BLATT Außenrahmen drucken - Farbe -Hintergrund -Linienstärke einstellen ******************************************
' *********************************************************************************************************************
'
DRUCK_cf% = 0 :' Farbe Zeichnung
'
DRUCK_cb% = -2 :' transparentem Hintergrund
'
DRUCK_n% = 11 :' Linienstärke DRUCK_n% = 1
'
DRUCK_i% = dll_call6("PrinterFunction",6,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_cf%,DRUCK_cb%,DRUCK_n%)
'
' ******************************************************************************
' A4-BLATT Außenrahmen drucken - oberen linken Ecke des Rechtecks **************
' ******************************************************************************
'
DRUCK_n% = 0 :' absoluter NULLPUNKT = 0
'
DRUCK_X% =DRUCK_horz_FAK * DRUCK_RAND_LINKS% :' Links HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK * DRUCK_RAND_OBEN% :' OBERER RAND 5mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
Print "Druckbeginn LINKS in Pixel = ";DRUCK_X%
Print ""
'
Print "Druckbeginn Oben in Pixel = ";DRUCK_y%
Print ""
'
' ******************************************************************************
' A4-BLATT Außenrahmen drucken - Breite und Höhe des Rechtecks *****************
' ******************************************************************************
'
REM DRUCK_p% = 0 :' Zeichnen einer Linie = 0
REM DRUCK_p% = 1 :' Zeichnen eines Rechteckes = 1
REM DRUCK_p% = 2 :' Zeichnen einer Ellipse = 2
'
DRUCK_p% = 1
'
DRUCK_lg% = DRUCK_horz - DRUCK_X% - DRUCK_vert_FAK * DRUCK_RAND_RECHTS% :' DRUCKBARE BREITE - Rand links 5mm
'
DRUCK_ht% = DRUCK_vert - DRUCK_y% - DRUCK_y% :' DRUCKBARE HÖHE
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
Print "Druckende Rechts in Pixel = ";DRUCK_lg%
Print ""
'
Print "Druckende Unten in Pixel = ";DRUCK_ht%
Print ""
'
' ******************************************************************************
' A4-BLATT MIT RAHMEN DRUCKEN **************************************************
' ******************************************************************************
'
DRUCK_cf% = 0 :' Farbe Zeichnung
'
DRUCK_cb% = -2 :' transparentem Hintergrund
'
DRUCK_n% = 10 :' Linienstärke DRUCK_n% = 1
'
DRUCK_i% = dll_call6("PrinterFunction",6,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_cf%,DRUCK_cb%,DRUCK_n%)
'
' *********************************************************************************************************************
' *********************************************************************************************************************
' Lochermarke auf A4-Blatt drucken ************************************************************************************
' *********************************************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% =DRUCK_horz_FAK *10 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK * 148 :REM Mitte Blatt
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Lochermarke auf A4-Blatt drucken *********************************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :' Linie zeichnen
'
DRUCK_lg% = 15 :' Länge Lochermarke
'
DRUCK_ht% = 0 :REM DRUCKBARE HÖHE
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
goto ende1
' *********************************************************************************************************************
' *********************************************************************************************************************
' Bild auf A4-Blatt drucken ******************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% =DRUCK_horz_FAK * 50 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK * 50 :REM Mitte Blatt
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Bild auf A4-Blatt drucken ***************************************************
' ******************************************************************************
'
Image_name$ = "Startbild.jpg"
'
DRUCK_BreiteBild% = 450
'
DRUCK_HoeheBild% = 450
'
DRUCK_i% = dll_call6("PrinterFunction",7,ADR(DRUCK_phnd%),ADR(DRUCK_chnd%),ADR(image_name$),DRUCK_BreiteBild%,DRUCK_HoeheBild%)
'
ende1:
' *********************************************************************************************************************
' *********************************************************************************************************************
' 1.Querlinie unter Kopftext ******************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% =DRUCK_horz_FAK * DRUCK_RAND_LINKS% :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *23 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 1.Querlinie unter Kopftext ***************************************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :REM Linie
'
DRUCK_lg% = DRUCK_horz - DRUCK_X% - DRUCK_vert_FAK * DRUCK_RAND_RECHTS% :REM DRUCKBARE BREITE
'
DRUCK_ht% = 0 :REM DRUCKBARE HÖHE
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
' *********************************************************************************************************************
' Position in der 1. Senkrechte linie im KOPF *************************************************************************
' *********************************************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% = DRUCK_horz_FAK *62 :REM Links HEFTRAND 20mm
'
DRUCK_y% = DRUCK_vert_FAK * DRUCK_RAND_OBEN% :REM LÄNGE -OBERER RAND
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Position in der 1. Senkrechte linie im KOPF **********************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :REM Rechteck
'
DRUCK_lg% = 0 :REM DRUCKBARE BREITE
'
DRUCK_ht% = DRUCK_vert_FAK * 18 :REM DRUCKBARE HÖHE -Oberer Rand 5mm
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
' *********************************************************************************************************************
' Position in der 2. Senkrechte linie *********************************************************************************
' *********************************************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% =DRUCK_horz_FAK *163 :REM Links HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK * DRUCK_RAND_OBEN% :REM LÄNGE -OBERER RAND
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Position in der 2. Senkrechte linie ******************************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :REM Rechteck
'
DRUCK_lg% = 0 :REM DRUCKBARE BREITE
'
DRUCK_ht% = DRUCK_vert_FAK * 18 :REM DRUCKBARE HÖHE -Oberer Rand 5mm
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
' *********************************************************************************************************************
' 3.Querlinie unten Fußteil *******************************************************************************************
' *********************************************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% =DRUCK_horz_FAK * DRUCK_RAND_LINKS% :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *(DRUCK_vert_mm - 10) :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 3.Querlinie unten Fußteil ****************************************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :REM Linie
'
DRUCK_lg% = DRUCK_horz-DRUCK_X%-DRUCK_vert_FAK * 5 :REM DRUCKBARE BREITE
'
DRUCK_ht% = 0 :REM Position vom OBERER RAND
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
' *********************************************************************************************************************
' Position in der 1. Senkrechte linie im Fußteil **********************************************************************
' *********************************************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% = DRUCK_horz_FAK *52 :REM Links HEFTRAND 20mm
'
DRUCK_y% = DRUCK_vert_FAK * (DRUCK_vert_mm - 10) :REM LÄNGE -OBERER RAND
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Position in der 1. Senkrechte linie im FUßTEIL *******************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :REM Rechteck
'
DRUCK_lg% = 0 :REM DRUCKBARE BREITE
'
DRUCK_ht% = DRUCK_vert_FAK * (DRUCK_vert_mm - 292) :REM DRUCKBARE HÖHE -Oberer Rand 5mm
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
' *********************************************************************************************************************
' Datum in Fußzeile erstellen *****************************************************************************************
' Position in der oberen linken Ecke des zu druckenden Textes *********************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *21 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *288 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' ******************************************************************************
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 8 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM "Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' Datum Aufbereiten ************************************************************
' ******************************************************************************
'
DRUCK_DATUM$ =" Datum : "+DATE$
'
' ******************************************************************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' ******************************************************************************
'
DRUCK_n% = 1 :REM transparentem Hintergrund
'
DRUCK_s$ = DRUCK_DATUM$ :REM TEXTAUSGABE
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
Print len(DRUCK_s$) :REM Anzeige der Textlänge
'
'
' *********************************************************************************************************************
' Position in der 2. Senkrechte linie im Fußteil **********************************************************************
' *********************************************************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absoluter NULLPUNKT
'
DRUCK_X% = DRUCK_horz_FAK *166 :REM Links HEFTRAND 20mm
'
DRUCK_y% = DRUCK_vert_FAK * (DRUCK_vert_mm - 10) :REM LÄNGE -OBERER RAND
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' Position in der 2. Senkrechte linie im FUßTEIL *******************************
' ******************************************************************************
'
REM Zeichnen einer Linie = 0
REM Zeichnen eines Rechteckes = 1
REM Zeichnen einer Ellipse = 2
'
DRUCK_p% = 0 :REM Rechteck
'
DRUCK_lg% = 0 :REM DRUCKBARE BREITE
'
DRUCK_ht% = DRUCK_vert_FAK * (DRUCK_vert_mm - 292) :REM DRUCKBARE HÖHE -Oberer Rand 5mm
'
DRUCK_i% = dll_call6("PrinterFunction",2,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_p%,DRUCK_lg%,DRUCK_ht%)
'
' *********************************************************************************************************************
' SEITEN ZAHL IM Fußzeile erstellen ***********************************************************************************
' Position in der oberen linken Ecke des zu druckenden Textes *********************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *168 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *288 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' SEITEN ZAHL IM Fußzeile erstellen ********************************************
' ******************************************************************************
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 8 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM "Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' SEITEN ZAHL IM Fußzeile erstellen ********************************************
' ******************************************************************************
'
DRUCK_SEITE3$ = "Seite "+DRUCK_SEITE1$+" von "+DRUCK_SEITE2$+" Seiten" :REM DRUCK_SEITE2$ = "999"
'
' ******************************************************************************
' SEITEN ZAHL IM Fußzeile erstellen ********************************************
' ******************************************************************************
'
DRUCK_n% = 1 :REM transparentem Hintergrund
'
DRUCK_s$ = DRUCK_SEITE3$ :REM TEXTAUSGABE
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
Print len(DRUCK_s$) :REM Anzeige der Textlänge
'
' *********************************************************************************************************************
' 1. Zeile - SCHRIFT für eigene Firma einstellen **********************************************************************
' Oberen linken Ecke des zu druckenden Textes *************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *21 :REM BREITE - HEFTRAND 20mm + Abstand
'
DRUCK_y% =DRUCK_vert_FAK *7 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 1. Zeile - SCHRIFT für eigene Firma einstellen *******************************
' Schriftart einstellen ********************************************************
' ******************************************************************************
'
REM Terminal
REM Terminal Größe 10
REM Terminal Größe 10, fett= 256
REM Terminal Größe 10, kursiv = 512
REM Terminal Größe 10, fett und kursiv, Farbe = 0
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "XXXXX"
'
DRUCK_n% = 10 + 256 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' 1. Zeile - SCHRIFT für eigene Firma einstellen *******************************
' Formatieren und Drucken des Textes *******************************************
' ******************************************************************************
'
DRUCK_n% = 1 :' transparentem Hintergrund
'
DRUCK_Firmatext1_Links$ = left$(DRUCK_Firmatext1_Links$,20) :' Textlänge auf 20 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Firmatext1_Links$) :' Textlänge ermitteln
'
DRUCK_a = 21 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Firmatext1_Links$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Firmatext1_Links$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Firmatext1_Links$ :' TEXTAUSGABE bei Schriftgröße 10 max. 20 Zeichen
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
' *********************************************************************************************************************
' 2. Zeile - SCHRIFT für eigene Firma einstellen **********************************************************************
' Position in der oberen linken Ecke des zu druckenden Textes *********************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *21 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *13 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 2. Zeile - SCHRIFT für eigene Firma einstellen *******************************
' Schriftart einstellen ********************************************************
' ******************************************************************************
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 9 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM "Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' 2. Zeile - SCHRIFT für eigene Firma einstellen *******************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' ******************************************************************************
'
DRUCK_n% = 1 :' transparentem Hintergrund
'
DRUCK_Firmatext2_Links$ = left$(DRUCK_Firmatext2_Links$,22) :' Textlänge auf 20 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Firmatext2_Links$) :' Textlänge ermitteln
'
DRUCK_a = 23 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Firmatext2_Links$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Firmatext2_Links$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Firmatext2_Links$ :' TEXTAUSGABE max. 22 Zeichen
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
' *********************************************************************************************************************
' 3. Zeile - SCHRIFT für eigene Firma einstellen **********************************************************************
' Position in der oberen linken Ecke des zu druckenden Textes *********************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *21 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *18 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 3. Zeile - SCHRIFT für eigene Firma einstellen *******************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' ******************************************************************************
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 8 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM "Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' 3. Zeile - SCHRIFT für eigene Firma einstellen *******************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' ******************************************************************************
'
DRUCK_n% = 1 :REM transparentem Hintergrund
'
DRUCK_Firmatext3_Links$ = left$(DRUCK_Firmatext3_Links$,25) :' Textlänge auf 20 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Firmatext3_Links$) :' Textlänge ermitteln
'
DRUCK_a = 26 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Firmatext3_Links$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Firmatext3_Links$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Firmatext3_Links$ :REM TEXTAUSGABE
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
Print len(DRUCK_s$) :REM Anzeige der Textlänge
'
' *********************************************************************************************************************
' 1. Zeile - SCHRIFT für fremd Firma einstellen ***********************************************************************
' Oberen linken Ecke des zu druckenden Textes *************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *164 :REM BREITE - HEFTRAND 20mm + Abstand
'
DRUCK_y% =DRUCK_vert_FAK *7 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 1. Zeile - SCHRIFT für fremd Firma einstellen ********************************
' Schriftart einstellen ********************************************************
' ******************************************************************************
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 10 + 256 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ****************************************************************************
' 1. Zeile - SCHRIFT für fremd Firma einstellen ******************************
' Formatieren und Drucken des Textes *********************************************************
' ******************************************************************************
'
DRUCK_n% = 1 :' transparentem Hintergrund
'
DRUCK_Firmatext1_Rechts$ = left$(DRUCK_Firmatext1_Rechts$,20) :' Textlänge auf 20 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Firmatext1_Rechts$) :' Textlänge ermitteln
'
DRUCK_a = 21 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Firmatext1_Rechts$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Firmatext1_Rechts$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Firmatext1_Rechts$ :' TEXTAUSGABE
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
' *********************************************************************************************************************
' 2. Zeile - SCHRIFT für eigene Firma einstellen **********************************************************************
' Position in der oberen linken Ecke des zu druckenden Textes *********************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *164 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *13 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
'
' ******************************************************************************
'
REM Terminal Größe 9, normal
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 9 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM "Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' ******************************************************************************
'
DRUCK_n% = 1 :' transparentem Hintergrund
'
DRUCK_Firmatext2_Rechts$ = left$(DRUCK_Firmatext2_Rechts$,22) :' Textlänge auf 22 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Firmatext2_Rechts$) :' Textlänge ermitteln
'
DRUCK_a = 23 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Firmatext2_Rechts$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Firmatext2_Rechts$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Firmatext2_Rechts$ :' TEXTAUSGABE max. 22 Zeichen
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
' *********************************************************************************************************************
' SCHRIFT EINSTELLEN **************************************************************************************************
' Position in der oberen linken Ecke des zu druckenden Textes *********************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *164 :REM BREITE - HEFTRAND 20mm
'
DRUCK_y% =DRUCK_vert_FAK *18 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
'
' ******************************************************************************
'
DRUCK_s$ = "Terminal" :REM Name der Schriftart DRUCK_s$ = "Terminal"
'
DRUCK_n% = 8 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM "Textfarbe DRUCK_cf% = 255
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' Drucken eines Textes mit transparentem Hintergrund ***************************
' Formatieren und Drucken des Textes *******************************************
' ******************************************************************************
'
DRUCK_n% = 1 :' transparentem Hintergrund
'
DRUCK_Firmatext3_Rechts$ = left$(DRUCK_Firmatext3_Rechts$,25) :' Textlänge auf 22 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Firmatext3_Rechts$) :' Textlänge ermitteln
'
DRUCK_a = 26 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Firmatext3_Rechts$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Firmatext3_Rechts$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Firmatext3_Rechts$ :' TEXTAUSGABE
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
Print len(DRUCK_s$)
'
' *********************************************************************************************************************
' 1. Zeile - Mittlere ÜBERSCHRIFT einstellen **************************************************************************
' Oberen linken Ecke des zu druckenden Textes *************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *63 :REM BREITE - HEFTRAND 20mm + Abstand
'
DRUCK_y% =DRUCK_vert_FAK *8 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 1. Zeile - ÜBERSCHRIFT MITTE EINSTELLEN **************************************
' Schriftart, Schriftgröße, Schriftfarbe einstellen ****************************
' ******************************************************************************
'
REM Terminal
REM Terminal Größe 08 normal = 0000
REM Terminal Größe 08, fett = 0256
REM Terminal Größe 08, kursiv = 0512
REM Terminal Größe 08, unterstrichen = 1024
REM Terminal Größe 08, durchgestricen = 2048
'
REM Farbe = 0 bis 255
'
DRUCK_s$ = "Terminal" :' Schriftart
'
DRUCK_n% = 14 + 256 :' Schriftgröße
'
DRUCK_cf% = 0 :' Textfarbe
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' 1. Zeile - ÜBERSCHRIFT MITTE EINSTELLEN **************************************
' Formatieren und Drucken des Textes *******************************************
' ******************************************************************************
'
DRUCK_n% = 1 :' Transparenter Hintergrund
'
DRUCK_Titeltext1_Mitte$ = left$(DRUCK_Titeltext1_Mitte$,33) :' Textlänge auf 33 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Titeltext1_Mitte$) :' Textlänge ermitteln
'
DRUCK_a = 33 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Titeltext3_Mitte$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Titeltext1_Mitte$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Titeltext3_Mitte$ :' TEXTAUSGABE
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
' *********************************************************************************************************************
' 2. Zeile - Mittlere ÜBERSCHRIFT einstellen **************************************************************************
' Oberen linken Ecke des zu druckenden Textes *************************************************************************
' *********************************************************************************************************************
'
DRUCK_n% = 0 :REM absolute DRUCK_n% = 0
'
DRUCK_X% =DRUCK_horz_FAK *63 :REM BREITE - HEFTRAND 20mm + Abstand
'
DRUCK_y% =DRUCK_vert_FAK *17 :REM LÄNGE -OBERER RAND 5mm +18mm
'
DRUCK_i% = dll_call6("PrinterFunction",4,adr(DRUCK_phnd%),adr(DRUCK_chnd%),DRUCK_n%,DRUCK_X%,DRUCK_y%)
'
' ******************************************************************************
' 2. Zeile - ÜBERSCHRIFT MITTE EINSTELLEN **************************************
' Schriftart, Schriftgröße, Schriftfarbe einstellen ****************************
' ******************************************************************************
'
REM Terminal
REM Terminal Größe 08 normal = 0000
REM Terminal Größe 08, fett = 0256
REM Terminal Größe 08, kursiv = 0512
REM Terminal Größe 08, unterstrichen = 1024
REM Terminal Größe 08, durchgestricen = 2048

REM Farbe = 0 bis 255
'
DRUCK_s$ = "Terminal" :REM Schriftart
'
DRUCK_n% = 8 :REM Schriftgröße + fett + kursiv
'
DRUCK_cf% = 0 :REM Textfarbe
'
DRUCK_i% = dll_call6("PrinterFunction",5,adr(DRUCK_phnd%),adr(DRUCK_chnd%),adr(DRUCK_s$),DRUCK_cf%,DRUCK_n%)
'
' ******************************************************************************
' 2. Zeile - ÜBERSCHRIFT MITTE EINSTELLEN **************************************
' Formatieren und Drucken des Textes *******************************************
' ******************************************************************************
'
DRUCK_n% = 1 :' Transparenter Hintergrund
'
DRUCK_Titeltext2_Mitte$ = left$(DRUCK_Titeltext2_Mitte$,63) :' Textlänge auf 33 Zeichen begrenzen
'
DRUCK_Textlaenge = len(DRUCK_Titeltext2_Mitte$) :' Textlänge ermitteln
'
DRUCK_a = 63 - DRUCK_Textlaenge :' Anzahl Leerzeichen ermitteln
'
DRUCK_Titeltext3_Mitte$ = STRING$(DRUCK_a,CHR$(32))+ DRUCK_Titeltext2_Mitte$ :' Text mit Leerzeichen auffüllen
'
DRUCK_s$ = DRUCK_Titeltext3_Mitte$ :' TEXTAUSGABE
'
DRUCK_s$ = DRUCK_Titeltext3_Mitte$ :' TEXTAUSGABE bei Schriftgröße 8 = 63 Zeichen
'
DRUCK_i% = dll_call6("PrinterFunction",1,adr(DRUCK_phnd%),adr(DRUCK_chform%),adr(DRUCK_s$),len(DRUCK_s$),DRUCK_n%)
'
' *********************************************************************************************************************
' DRUCKER BEENDEN - Print.dll AUSSCHALTEN *****************************************************************************
' *********************************************************************************************************************
'
DRUCK_i% = dll_call4("PrinterManager",3,adr(DRUCK_phnd%),adr(DRUCK_chnd%),0)
'
message "Der Test ist fertig!"
'
dll_off
'
' *********************************************************************************************************************
' PROGRAMM BEENDEN ****************************************************************************************************
' *********************************************************************************************************************
'
terminate
'
end

» Mon projet en cours
» Mon projet editeur de maps en cours.
» blog d'un projet de jeu en cours (pas en panoramic)
» Gestionnaire de Projets Panoramic 2 - Développement en cours
» Dlls compilees nouvelle version avec gestion clipboard texte