Basic-Example

sImgBackground = "d:\\!cd_api_\\Print\\hintergrund.bmp"  ' Bildgröße 1200 x 1200 oder größer
sTextTop       = "   Fragen, Antworten und Wünsche unter: service.hardcopy.de    Questions, Answers, Suggestions & Wishes: www.service.hardcopy.de  "
sTextBottom    = "              Copyright  1983-2005  bla bla  bla bla bla  bla bla  bla bla bla  bla bla  bla bla bla  bla bla"
sText1         = "Text1"
sText2         = "Text2: 15.1.04 - R"
sText3         = "Text3 (rechts-  ):\nText4 (bündig):"
sText3a        = "Text3a (links-)" + "\n" + "Text4a (bündig)"

Image( 0 ).Open( sImgBackground )
Image( 0 ).Resample( Image(0).Width, Image(0).Width ) 
w  = Image(0).Width
w2 = w / 2

Pen.Color = _ColorWhite
Pen.Width = w 
Image(0).Ellipse( -w2,-w2, w*2 , w*2 )
Pen.Color = _ColorBlack
Pen.Width = 1
Image(0).Ellipse( -2,-2, w+4 , w+4 )

iAnzahlZeichen = 130		' Schrift auf dem Rand
Font.Color = _ColorBlue
Font.Name  = "Courier New"
Font.Bold  = true
Font.Size  = w / iAnzahlZeichen * 3
Pen.Width  = Font.Size * 1.4
Pen.Color = _ColorWhite
Image(0).Ellipse( 0+Pen.Width/2,0+Pen.Width/2, w-Pen.Width,w-Pen.Width )
While Len( sTextTop ) < iAnzahlZeichen
	sTextTop = sTextTop + " " 
Wend
oLen = Len( sTextTop )
For o = 0 to oLen-1
	g = (-270) + (180/oLen*o)
	Font.Orientation = g + 180 + 360
	iX = w2+Sin(DegToRad(g))*w2 
	iY = w2+Cos(DegToRad(g))*w2 
	Image(0).DrawText( iX,iY, 0,0, Mid(sTextTop,oLen-o,1) )  ' Text oben
	g = g + 180
	Font.Orientation = g + 360
	iX = w2+Sin(DegToRad(g))*(w2-Font.Size*1.6) 
	iY = w2+Cos(DegToRad(g))*(w2-Font.Size*1.6)
	Image(0).DrawText( iX,iY, 0,0, Mid(sTextBottom,o,1) ) ' Text unten
	If g mod 18 = 0 Then
		Redraw(FALSE)
	EndIf	
Next	
Font.Orientation = 0

Pen.Width = 1    ' Innenring
Pen.Color = _ColorWhite
iEllipse = 200
Image(0).EllipseFill( w2-iEllipse/2,w2-iEllipse/2, iEllipse,iEllipse )

Font.Color = _ColorWhite
Font.Name  = "Arial"
Font.Bold  = true
Font.Size  = w/100*15
Font.Align = _FontAlignCenter
Image(0).DrawText( 0,w/100*20, w,w, sText1 )

Font.Size  = w/100*4
Font.Align = _FontAlignRight
Image(0).DrawText( w2,w2-Font.Size/2, w2-Font.Size*2,w2, sText2 )

Font.Size  = w/100*5
Font.Align = _FontAlignRight
Image(0).DrawText( 0,w/100*65, w2,w2, sText3 )

Font.Align = _FontAlignLeft
Image(0).DrawText( w/100*52,w/100*65, w2,w2, sText3a )

Redraw()

End  ' für die Verwendung mit TrueNet diese Zeile löschen

anzahl = 1
Dialog "Anzahl"
	"Anzahl:", anzahl
End Dialog

fImage = "d:\\!cd_api_\\Print\\vorlage_ra.jpg"
Image(0).Save( fImage, _Image_JFIF, 24,  2, "", "" ) 

f = "d:\\!cd_api_\\auscd"

fp = File.Open( f + ".tmp", "w" )
File.Write( fp, "DEVICE=roboter_device_name\n" )
File.Write( fp, "JOB_TYPE=BUILD+COMPARE+PRINT\n" )
File.Write( fp, "BUILD_TYPE=ISO_CD\n" )
File.Write( fp, "BUILD_PATH=d:\\CD_daten\n" )
File.Write( fp, "PRINT_TEMPLATE=d:\\!cd_api_\\Print\\vorlage_mit_innenring.rpt\n" ) ' nur wegen der Größe
File.Write( fp, "PRINT_BACKGROUND=" + fImage + "\n" )
File.Write( fp, "COPYRIGHT=xxx xxx\n" )
File.Write( fp, "VOLUME=vvvvv\n" )
File.Write( fp, "JOLIET=YES\n" )
File.Write( fp, "QUANTITY=" + anzahl + "\n" )
File.Close( fp )
File.Rename( f + ".tmp", f + ".job" )

: TrueNet Copyright R-Quest Technologies, LLC




Last update: 04/15/2020 08:41:45