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 ??