FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF_dll - nouvelles versions
par Klaus Aujourd'hui à 13:26

» Compilateur FBPano
par Ouf_ca_passe Aujourd'hui à 12:25

» mise a jour calculatrice
par papydall Aujourd'hui à 2:01

» double guillemets "" dans un EDIT
par Marc Hier à 23:43

» Documentation de KGF
par Klaus Lun 20 Nov 2017 - 22:52

» Zoom sur une portion d'écran
par JL35 Lun 20 Nov 2017 - 21:51

» Recherche d'une expression dans un source
par Marc Lun 20 Nov 2017 - 13:08

» Tracer une grille n'importe où sur l'écran
par JL35 Dim 19 Nov 2017 - 22:14

» TourD Version 2
par Klaus Sam 18 Nov 2017 - 23:58

» La métamatière et le peuple
par JL35 Ven 17 Nov 2017 - 21:18

» Capture d'une zone de l'écran total
par JL35 Ven 17 Nov 2017 - 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 17 Nov 2017 - 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

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

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
JL35



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

MessageSujet: Re: Projet en cours: gestion d'impression en texte ET graphique   Sam 8 Mai 2010 - 23:54

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.
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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Projet en cours: gestion d'impression en texte ET graphique   Dim 9 Mai 2010 - 0:55

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.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 10128
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Projet en cours: gestion d'impression en texte ET graphique   Dim 9 Mai 2010 - 10:08

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
   
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Projet en cours: gestion d'impression en texte ET graphique   Lun 13 Juin 2011 - 22:23

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



Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




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

Revenir en haut Aller en bas
 
Projet en cours: gestion d'impression en texte ET graphique
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Projet en cours: gestion d'impression en texte ET graphique
» [Projet en cours ] Titix Contre le Dr Shlumpt
» PROJET EN COURS... Salle mutlisport - HYH créations
» [Résolu] Texte impossible dans Outlook Express
» Mon dernier projet

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: