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
» Détection connexion internet
par JL35 Aujourd'hui à 18:39

» Le parcours du cavalier sur un échiquier 8 x 8
par pascal10000 Hier à 13:26

» Casse-tête : Echanger les positions des cavaliers
par papydall Sam 22 Juil 2017 - 19:42

» Compilateur FBPano
par jean_debord Sam 22 Juil 2017 - 10:54

» demande pour recuperer un text speciale
par pascal10000 Ven 21 Juil 2017 - 22:04

» KGF_dll - nouvelles versions
par Klaus Ven 21 Juil 2017 - 14:29

» Amélioration de la commande HINT
par papydall Mer 19 Juil 2017 - 3:30

» TEST SUR SHAPE
par papydall Mer 19 Juil 2017 - 1:17

» Un challenge à relever
par papydall Mar 18 Juil 2017 - 21:25

» Astuce : Indenter plusieurs lignes de code à la fois
par papydall Mar 18 Juil 2017 - 1:32

» Suggestion pour le forum
par papydall Lun 17 Juil 2017 - 20:28

» Truver les handles des onglets de Panoramic Editor
par Klaus Lun 17 Juil 2017 - 18:20

» Synedit_Editor - nouvelles versions
par Klaus Lun 17 Juil 2017 - 13:46

» Détermine si oui ou non un objet est PARENT d'un autre objet
par Klaus Dim 16 Juil 2017 - 11:58

» Une autre façon de terminer une application.
par papydall Dim 16 Juil 2017 - 3:53

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
31      
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 : 5894
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 En ligne
Klaus

avatar

Nombre de messages : 10062
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 : 10062
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
» Infobulle : texte dans l'infobulle qui se souligne
» [suggestion] mettre des PDF ou autre type de texte.

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: