Drucken auf BON-Rolle

[Rolf Ramacher]

Hallo zusammen,

ich möchte für einen Kunden sog, Fähnchenetikettendrucken. Diese befinden sich auf einer Bonrolle. Ich nutze Xbpprintdialog()

nun erhalten ich den bedruckbaren Bereich asize zurück mit {1016,1006} - das kan doch irgendwie nicht sein. oder muß ich anders vorgehen?

Code: Alles auswählen

IF oPrinter <> NIL 
		oPrinter:setOrientation(XBPPRN_ORIENT_PORTRAIT)
      // Neuen Presentation-Space erzeugen 
      oPS   := XbpPresSpace():new() 
      // Bedruckbarer Bereich auf dem Papier 
      aSize := oPrinter:paperSize() 
      aSize := { aSize[5] - aSize[3],aSize[6] - aSize[4]  } 
		nVon:=30
		nBis:=aSize[2]-100
      oPS:create( oPrinter, aSize, GRA_PU_LOMETRIC ) 
		aPos:={nVon,nbis}
      oPrinter:startDoc()
msgbox(var2lchar(asize))

[brandelh]

Hi,

wie groß ist denn dein Etikett tatsächlich ?

Notfalls einfach selbst die Breite und Länge beachten (bei den Druckbefehlen).
ein NewPage() oder das Ende sollten dann richtig vorschieben.

[Rolf Ramacher]

Hallo zusammen,

hier bin ich noch nicht weiter gekommen. Er druckt immer noch nicht. Das Ausrichten des Druckers brachte bisher auch keine Verbesserung . (automisches Erkennen, welche Etiketten eingelegt sind.)

so sieht der Code aus:

Code: Alles auswählen

#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Inkey.ch"
#include "xbpdev.ch"
#include "Font.ch"

#pragma Library( "XppUI2.lib" ) 
#Define CRLF Chr(13)+Chr(10)

Proc Main
	Local aPos:={}, nVon:=0, nBis:=0
   oDlg := XbpPrintDialog():new() 

   // Druckausgabe nicht standardmäßig in Datei umleiten 
   oDlg:enablePrintToFile := .f. 
   oDlg:printToFile       := .f. 
	oDlg:pageRange 		  := {1,99 }
   oDlg:create() 

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

   IF oPrinter <> NIL 
		oPrinter:setOrientation(XBPPRN_ORIENT_PORTRAIT)
      // Neuen Presentation-Space erzeugen 
      oPS   := XbpPresSpace():new() 
      // Bedruckbarer Bereich auf dem Papier 
      aSize := oPrinter:paperSize() 
msgbox(var2lchar(aSize))
      aSize := { aSize[5] - aSize[3],aSize[6] - aSize[4]  } 
		nVon:=30
		nBis:=aSize[2]-100
      oPS:create( oPrinter, aSize, GRA_PU_LOMETRIC ) 
		aPos:={nVon,nbis}
      oPrinter:startDoc()
msgbox(var2lchar(asize))
msgbox(var2lchar(aPos))

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

	      GraStringAt( oPS, aSize , "test" ) 
      oPrinter:endDoc() 
      // Aufräumen 
      oPrinter:destroy() 
      oPS:destroy() 

   ENDIF 
	
Return

Ich habe schon verschiedene Position für GrastringAt versucht. aber nichts. :setorientateion() habe ich ebenfalls mal ausgesternt.
auch nix. Hat hier jemand irgendeine Idee ??

[brandelh]

Hallo,

falls es sich tatsächlich um einen Windowsdrucker mit Druckertreiber handelt,
könnte es daran liegen, dass Xbase++ blöderweise links unten 0,0 hat.

Um von Oben links zu drucken musst du den Y Wert auf die Höhe - Rand setzen ... sowas machst du mit nBis,
aber unten wird nur auf ... GraStringAt( oPS, aSize , "test" ) gedruckt.
sollte es nicht besser GraStringAt( oPS, {nVon,nBis} , "test" ) lauten ?

Eventuell muss die Seite auch gekippt werden ...