Io ho lo stesso modello. Solo che sto finendo un lavoro, dopo dò un occhiataancora peggio, questa e' una 58mm
-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
Italian Creare Un Box o linea con Stampante bluetooth
- Thread starter Xfood
- Start date
- Similar Threads Similar Threads
l'altra cosa che non capisco, e questo
perche se modifico il numero 300 la stampa si allunga / dimuisce in verticale, ( e quindi corretto)
mentre se tocco il valore 576, la stampa / l'immagine viene stravolta, io pensavo che si allargasse / riducesse in orizontale
misteri....
B4X:
Dim bmp As Bitmap
bmp.InitializeResize(File.DirInternal, "Test22.png", 576,300, False) 'ignore 576mentre se tocco il valore 576, la stampa / l'immagine viene stravolta, io pensavo che si allargasse / riducesse in orizontale
misteri....
si certo, infatti avevo postato un piccolo esempio,
in pratica ho creato un panel, panel1 dove dentro ci sono altri panel per scrivere / disegnare quello che mi serve,
poi faccio un snapshop del panel1 e creo un'immagine png,
a quel punto carico l'immagine e la mando in stampa
ecco il codice
B4X:
'============ NUOVO tEST DI PROVA
Printer1.Reset
Dim m As Bitmap = pnlMain.Snapshot
m.Resize(200,100,True)
Dim cv As Canvas
cv.Initialize2(m)
If File.Exists(File.DirInternal, "Test22.png") Then
File.Delete(File.DirInternal, "Test22.png")
End If
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal, "Test22.png", False)
cv.Bitmap.WriteToStream(Out, 100, "PNG")
Out.Close
Dim bmp As Bitmap
bmp.InitializeResize(File.DirInternal, "Test22.png", 576,300, False) 'ignore 576
Dim myimage As AnImage = Printer1.ImageToBWIMage(bmp)
myimage = Printer1.DitherImage2D(myimage, 100) '128
myimage= Printer1.PackImage(myimage)
Printer1.PrintImage(myimage)Magari sembrerebbe una domanda sciocca.... Ma prendi l'immagine del label , la salvi e la carichi di nuovo?
Last edited:
Lo fa come "preview" (immagino), ricaricando il file che ha salvato (non utilissimo ma non sono stato ad eliminare quella parte)
non ho capito,
in realta scrivo quello che mi serve, tipo Banco Macelleria, opure banco Salumeria,
scrivo il numero sempre nelle mie label contenute dal pannello master,
e poi faccio uno snapshot del pannello che contiene tutte le mie view
B4X:
Dim m As Bitmap = pnlMain.Snapshot
m.Resize(200,100,True)
' con un cancas seleziono l'area per poi generare la bitmap
Dim cv As Canvas
cv.Initialize2(m)
If File.Exists(File.DirInternal, "Test22.png") Then
File.Delete(File.DirInternal, "Test22.png")
End If
Dim Out As OutputStream
Out = File.OpenOutput(File.DirInternal, "Test22.png", False)
cv.Bitmap.WriteToStream(Out, 100, "PNG")
Out.CloseQui è talmente evidente l'errore! Il pannello è quadrato, ma tu crei una Bitmap rettangolare! E' vero che mantieni le proporzioni col True, ma non mi convince affatto, ha davvero poco senso.
@Lello1964 puoi provare per favore
Creare Un Box o linea con Stampante bluetooth
ancora peggio, questa e' una 58mm 😁 Io ho lo stesso modello. Solo che sto finendo un lavoro, dopo dò un occhiata
www.b4x.com
non capisco ad ogni modo,
perche alla fine creo un file png, e poi lo ricarico per mandarlo in stampa, quindi quadrato oppure rettangolare, non capisco cosa centra...
Dim bmp As Bitmap
bmp.InitializeResize(File.DirInternal, "Test22.png", 576,300, False) 'ignore 576
siPerché dici così? A me sembra perfetta
E' la terza versione che ho allegato?
Che valori scrive il log?
Torniamo indietro; hai provato questi due parametri?
Printer1.Justify = 1
o
Printer1.LeftMargin = 0
Oh, comunque il layout prendilo dal mio progetto, perché il tuo originale "non va"
