Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

 Set Printer to LPT1
@prow()+1, col() SAY "Schöner Ausdruck!"

Code: Alles auswählen

oPS:create(oPrinter, aSize, GRA_PU_LOMETRIC + GRA_PO_ORGTOPLEFT)

Code: Alles auswählen

oHB:PrintText( nPosX, nPosY, alltrim(cTxt), "R" ) -> rechtsbündig
oHB:PrintText( nPosX, nPosY, transform(nWert,"999,999,999.99"), "R" ) -> Zahlen rechtsbündig
oHB:PrintText( nPosX+20, nPosY, "EUR" ) -> 2 mm daneben das EUR Zeichen
cMemo := field->MemoFeld // oder jeder längere Text
oHB:PrintMemo( nPosX, nPosY, alltrim(cMemo), cAusrichtung, ... )
Ausrichtung kann sein links, rechts, zentriert oder Blocksatz etc.

Code: Alles auswählen

   #include "Gra.ch" 
   #include "Xbp.ch" 
   #pragma Library( "XppUI2.lib" ) 
 
   PROCEDURE Main 
      LOCAL oPrinter, oPS, aSize 
   
      oPrinter := XbpPrinter():New():create() // Standarddrucker
 
      IF oPrinter <> NIL   // Fehler bei der Erzeugung abfangen !
         // Neuen Presentation-Space erzeugen 
         oPS   := XbpPresSpace():new() 
 
         // Bedruckbarer Bereich auf dem Papier 
         aSize := oPrinter:paperSize() 
         aSize := { aSize[5] - aSize[3], ; 
                    aSize[6] - aSize[4]  } 
         oPS:create( oPrinter, aSize, GRA_PU_LOMETRIC ) 

         // Kleiner Druckjob 
         oPrinter:startDoc()  // oPrinter steuert die Ausgabe
         // was ausgegeben wird geht aber auf den oPS !
         GraStringAt( oPS, { 0, aSize[2]-50 }, "Hello World" )  
         ... hier können weitere GRA Funktionen aufgerufen werden.
         oPrinter:endDoc() 
 
         // Aufräumen 
         oPrinter:destroy() 
         oPS:destroy() 
      ENDIF 

   RETURN 

Code: Alles auswählen

   oDlg := XbpPrintDialog():new() 

   // Druckausgabe nicht standardmäßig in Datei umleiten 
   oDlg:enablePrintToFile := .f. 
   oDlg:printToFile       := .f. 
   oDlg:create() 

   // Konfiguriertes Drucker Objekt erzeugen 
   oPrinter := oDlg:display() 
   oDlg:destroy() 

   IF oPrinter <> NIL 
		oPrinter:setOrientation(XBPPRN_ORIENT_LANDSCAPE)
      // Neuen Presentation-Space erzeugen 
      oPS   := XbpPresSpace():new() 
      // Bedruckbarer Bereich auf dem Papier 
      aSize := oPrinter:paperSize() 
      aSize := { aSize[5] - aSize[3],aSize[6] - aSize[4]  } 
      oPS:create( oPrinter, aSize, GRA_PU_LOMETRIC ) 

      oPrinter:startDoc()
		// Abfrage Startposition bei empty von Anfang an.
		If empty(cDruckPos) 
			aPos:={160,1830}
			aZPos:={130,1940}
			aNrPos:={120,1875}
*			nZaehler:=1940
			nSeitenZaehler:=0
			nCounter:=1
		Else
			aZPos:={130,1940}
			// Seitenzaehler bis 48 wird um 1 verringert, weil der Seitenzähler erst nach
			// dem druck erhöht wird.
			nSeitenZaehler:=val(cDruckPos)-1
			For x = 1 to  Len(aCounter)
				If val(cDruckPos)>= aCounter[x]
					nNum:=aCounter[x]
				Else				
					nZaehler:=x
					exit
				EndIf
			Next x
			nCounter:=val(cDruckPos)-nNum
			// nZaehler für die Zeilen um 1 weniger, da er beim zähler drucken soll und nicht
			// noch eine Erhöhung von aZPos hat.
			For j = 1 to nZaehler-1
				aZPos[02]-=250				
			Next j
			For j = 1+1 to nCounter
				aZPos[01]+=453
			Next j
			aNrPos:=AClone(aZPos)
			aNrPos[01]-=10
			aNrPos[02]-=65
			aPos:=AClone(aZPos)
			aPos[01]+=30
			aPos[02]-=90
		EndIf
		For i = 1 to Len(aSaetze)	
			If nSeitenZaehler==48
				oPrinter:NewPage()
				nSeitenZaehler:=0
				nCounter:=1
				aPos:={160,1830}
*				nZaehler:=1940
				aZPos:={130,1940}
				aNrPos:={120,1875}
			EndIf
			nSichPos:=aZPos[02]

			oFont := XbpFont():new():create( "18.Courier New" )
			GraSetFont( oPs, oFont )

			aZPos[01]-=10
			      GraStringAt( oPS, aZPos , aSaetze[i][1] ) 
					aZPos[02]-=25
					aZPos[01]+=10

	      GraStringAt( oPS, aZPos , aSaetze[i][2] ) 
			aPos[02]:=aZPos[02]-85

			oFont := XbpFont():new():create( "26.Arial" )
			oFont:bold:=.t.
			oFont:configure()
			GraSetFont( oPs, oFont )
	      GraStringAt( oPS, aNrPos , aSaetze[i][11] ) 

			If aSaetze[i][12]="000"
			Else
				aNrPos[02]-=25
				oFont := XbpFont():new():create( "18.Arial" )
				GraSetFont( oPs, oFont )
		      GraStringAt( oPS, aNrPos , aSaetze[i][12] ) 
				aNrPos[02]+=25
			EndIf
			
			// Barcode-Berechnung
			oFont := XbpFont():new():create( "40.Arial" )
			GraSetFont( oPs, oFont )

			uEan13_Nr:=aSaetze[i][3]+aSaetze[i][4]+aSaetze[i][10]
			uEan13_Nr+=GraBarcodeEAN13_CalcCheckDigit(uEan13_Nr)
     		// Startblock  start sentinel - linker Anfang
	      cBarCodeBlock := "101"
	      // 1. Stelle EAN13 wird nicht verschl

Code: Alles auswählen

   oFont:FamilyName := "Times New Roman"
   oFont:nominalPointSize := 12

Code: Alles auswählen

#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
#include "Font.ch"

*---------------- Fonts nur einmal erzeugen ------
procedure main
local oHBPrinter, nPosY, cTxt

oHBPrinter := HBPrinter():New():create()   // Standarddrucker

if oHBPrinter:IsPrinterError()     // Fehler verhindern, avoid errors
   ? "Drucker ist nicht verf

Code: Alles auswählen

  GRA_PU_ARBITRARY  Beliebige Einheit. Das Koordinatensystem    
                    wird auf den Viewport skaliert.             
  GRA_PU_PIXEL *)   Eine Einheit ist ein Pixel                  
  GRA_PU_LOMETRIC   Eine Einheit ist 0.1 Millimeter             
  GRA_PU_HIMETRIC   Eine Einheit ist 0.01 Millimeter            
  GRA_PU_LOENGLISH  Eine Einheit ist 0.01 Inch                  
  GRA_PU_HIENGLISH  Eine Einheit ist 0.001 Inch                 
  GRA_PU_TWIPS      Eine Einheit ist 1/1440 Inch 
 *) Standardwert

Code: Alles auswählen

  GraStringAt( ::oPS, { 0, ::aPaperSize[2]-65 }, "Hello World" )

Code: Alles auswählen

   oFont := XbpFont():new():create( "12.Arial.normal" )

   GraStringAt( ::oPS, { 0, ::aPaperSize[2]-65 }, "Hello World" )
   GraSetFont(  ::oPS, oFont )
   GraStringAt( ::oPS,   , "Hello World" )   

Code: Alles auswählen

aAttrString[GRA_AS_HORIZALIGN] := GRA_HALIGN_CENTER
GraSetAttrString(oPs, aAttrString)

Code: Alles auswählen

aAttrString := Array(GRA_AS_COUNT) 

Code: Alles auswählen

nFontHeight := oPS:setFont():height 

Code: Alles auswählen

nY += nFontHeight 

Code: Alles auswählen

GraSetFont(  ::oPS, oFont )

Code: Alles auswählen

	oFont := XbpFont():new():create( "26.Arial" )
			oFont:bold:=.t.
			oFont:configure()
			GraSetFont( oPs, oFont )

Code: Alles auswählen

dcprint on to oprinter
@ dc_printrow()+1,10 dcprint say "Schöner Text"
dcprint off