Italian Creare Un Box o linea con Stampante bluetooth

[Star-Dust]

ancora peggio, questa e' una 58mm
?

Io ho lo stesso modello. Solo che sto finendo un lavoro, dopo dò un occhiata

 

[Xfood]

l'altra cosa che non capisco, e questo

Dim bmp As Bitmap
bmp.InitializeResize(File.DirInternal, "Test22.png", 576,300, False) 'ignore 576

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....

 

[Xfood]

@Xfood, un pezzettino di codice? cosi magari vediamo come aiutarti....

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

'============   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)

 

[Star-Dust]

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

'============   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?

 

[LucaMs]

Prova al volo 'sta "robaccia" - peccato che io non abbia la stampante!
Penso (spero) che dovrai cambiare ben pochi o nessun valore.

 

[LucaMs]

Magari sembra una domanda scema. Ma prendi l'immagine del lalabel , la salvi e la carichi di nuovo?

Lo fa come "preview" (immagino), ricaricando il file che ha salvato (non utilissimo ma non sono stato ad eliminare quella parte)

 

[LucaMs]

Ma perché "ascolto" (si fa per dire) le porcate che stanno dicendo ad Agorà, mentre faccio queste cose? Per sprecare corrente?
(scusate, piccolo sfogo "politico")

 

[Xfood]

Magari sembra una domanda scema. Ma prendi l'immagine del lalabel , la salvi e la carichi di nuovo?

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

 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.Close

 

[LucaMs]

Dim m As Bitmap = pnlMain.Snapshot
m.Resize(200,100,True)

Qui è 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.

 

[Xfood]

ho provato sulla mia stampante sunmi,idem

@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

grazie

 

[Xfood]

Qui è 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.

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

 

[Lello1964]

non funziona il Test3 di Luca

 

[LucaMs]

non funzionaView attachment 130471

Perché dici così? A me sembra perfetta ?

E' la terza versione che ho allegato?

 

[Lello1964]

Perché dici così? A me sembra perfetta ?

E' la terza versione che ho allegato?

si

 

[Xfood]

infatti se si cambio il valore 576

bmp.InitializeResize(File.DirInternal, "Test22.png", 576,300, False) 'ignore 576

succede proprio quello, sembra un valore fisso....si puo modificare solo il valore 300 che allunga, o diminuisce l'immagine in verticale

 

[LucaMs]

si

Che valori scrive il log?

 

[LucaMs]

non riesco a fare stampare la bitmap piu a sinistra, qualche idea?

Torniamo indietro; hai provato questi due parametri?

Printer1.Justify = 1

o

Printer1.LeftMargin = 0

 

[Xfood]

non ho provato

 

[LucaMs]

non ho provato

Oh, comunque il layout prendilo dal mio progetto, perché il tuo originale "non va"

 

[Xfood]

prova ad aggiungere il codice suggerito da @LucaMs
ma per adesso non posso provarlo....
ho visto il layout aggiustato da @LucaMs , grazie e magnifico
adeguato grafica secondo come era nel mio pensiero
e dulcis in fundo la è ? ? ?

adesso sarebbe solo da provare