Spanish espacio entre lineas al imprimir libreria wifipt impresora epson ticket

resti

Member
Licensed User
Hola estoy intentado imprimir en una impresora de red epson de ticket, utilizo la libreria Wifipt. El problema esque me deja mucho espacio entre lineas.

ejemplo:
hola mundo

hola mundo

quiero que quede asi:
hola mundo

hola mundo

Gracias.
 

resti

Member
Licensed User
'CODIGO

#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#BridgeLogger: True
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals

Dim pt As wifiprint
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
pt.initialize

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click

pt.connectPT("192.168.10.103",9100) 'HERE connet YOUr DEVICE"

End Sub

Sub Button2_Click
pt.printstring ("hola mundo")
pt.printstring ("hola mundo")
'pt.printtest 'TEST PAPER
' Sleep(3000)
'pt.cut
End Sub

Sub Button3_Click
Dim pic As Bitmap
pic.Initialize(File.DirAssets,"look.bmp")


pt.printstring ("hola mundo")


pt.Print_BMP(pt.POSPrintBMP(pic,500,0)) '(PICTURE,PAPER WIDTH,0)


'Sleep(1000)



'pt.cut 'CUT PAPAR
'pt.Printbeep 'VOICE BEEP
End Sub
 

Attachments

Gustsp

Member
Licensed User
'CODIGO

#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#BridgeLogger: True
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals

Dim pt As wifiprint
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
pt.initialize

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button1_Click

pt.connectPT("192.168.10.103",9100) 'HERE connet YOUr DEVICE"

End Sub

Sub Button2_Click
pt.printstring ("hola mundo")
pt.printstring ("hola mundo")
'pt.printtest 'TEST PAPER
' Sleep(3000)
'pt.cut
End Sub

Sub Button3_Click
Dim pic As Bitmap
pic.Initialize(File.DirAssets,"look.bmp")


pt.printstring ("hola mundo")


pt.Print_BMP(pt.POSPrintBMP(pic,500,0)) '(PICTURE,PAPER WIDTH,0)


'Sleep(1000)



'pt.cut 'CUT PAPAR
'pt.Printbeep 'VOICE BEEP
End Sub
Buen Dia
Se que puede ser una opción rebuscada, pero tambien podrias considerar a guardar todo en una variable string, manejar tus propios saltos de linea y mandarla a imprimir de una.
Aclaro que no he podido probar la librería porque no tengo una impresora acorde.

saludos
Gustavo
 
Top