ich muss einige Grafiken ausrducken, die nicht die gewünschte Größe haben. Ich verwende dazu folgenden Code:
Code: Alles auswählen
faktor=2
oBmp1 := xbpBitmap():New():Create()
oBmp1:PresSpace(oPS1)
oBmp1:LoadFile("Testgrafik.jpg")
breit:=oBmp1:xsize*faktor
hoch:=oBMP1:ysize*faktor
oBmp2 := xbpBitmap():New():Create()
oBmp2:PresSpace(oPS2)
oBmp2:Make(breit,hoch)
aS1 := {0,0,oBmp1:xSize,oBmp1:ySize}
aS2 := {0,0,oBmp2:xSize,oBmp2:ySize}
GraBitBlt(oBmp2:PresSpace(),oBmp1:PresSpace(),aS2,aS1,,GRA_BLT_BBO_IGNORE,Sleep(0.2))
oBmp2:draw( oPrinterPS, {200,200} )
Ich habe schon mit den Parametern von GraBitBlt experimentiert, konnte aber keinen sichtbaren Erfolg verbuchen