With following code i am only able to print text in the label printer, where i need to add logo on the sticker. Any idea how it is possible?
Code: Select all
ElseIf FindString(commands$, "meeting:", 0)
main_command$ = ReplaceString(commands$, "meeting:", "")
If Not main_command$ = ""
; Font name, font size
Dim Font(5)
Font(0) = LoadFont(-1, "Arial", 26)
Font(1) = LoadFont(-1, "Arial", 130)
Font(2) = LoadFont(-1, "Arial", 26)
If DefaultPrinter()
If StartPrinting("Test")
If StartDrawing(PrinterOutput())
DrawingMode(#PB_2DDrawing_Transparent)
Info.SYSTEMTIME
GetSystemTime_(Info)
;dmyhm.s = Str(Info\wDay) + "-" + Str(Info\wMonth) + "-" + Str(Info\wYear) + " " + Str(Info\wHour) + ":" + Str(Info\wMinute)
dmyhm.s = NotepadTimeDate()
AlignText(10,10, dmyhm + " ||| ABACD", Font(0), #Black)
AlignText(10,20, "GUEST: You yours", Font(0), #Black)
AlignText(10,40, "HOST: I you we", Font(0), #Black)
AlignText(10,320, "____________________________________________________", Font(0), #Black)
StopDrawing()
EndIf
StopPrinting()
EndIf
EndIf
Quote tags>Code tags
12.10.2018
RSBasic