Recadrer les textes et police

Signaler
-
 Mervelis -
Bonjour à tous, j'ai un petit soucis avec mon application
je m'explique, avec mon imprimante thermique E-POS 220M que j'utilise avec une application développé en VB. NET qui m'aide à imprimer les factures de vente produit dans ma boutique. je voudrais savoir comment centrer les textes sur le papier et qu'il soit aussi lisible par mes clients et si possible me donner le nom de police a utiliser pour le texte. Voici le lien avec l'image pour mieux se faire comprendre...
--------------------------------------------------------
https://drive.google.com/file/d/1iC32_xiyf7J-Gm9PBoz3j8YvnLrcsJe_/view?usp=drivesdk

je vais que les textes rentre à gauche, svp aider moi

2 réponses

Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
Bonjour

on te l'a déjà dit, sans code pas possible.
On ne sait pas ce qui pose problème en le lisant dans le marc de café.

D'autre part, poster l'image directement dans le message évite de perdre du temps à aller sur un autre site.
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

il faut faire quoi pour bien le paramétrer ?
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
Je ne sais pas, je n’ai pas de compte google
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
Essaye cjoint.com c’est gratuit et sans compte.
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

https://www.cjoint.com/c/IHsviZAnfFK
Bonsoir Whismeril voici le code source de ma question
    Private Sub LoadReceipt()
        Dim x As Integer = 0
        Dim Y As Integer = 0
        Try
            sqL = "SELECT IDescription, itemprice, [Quantity], POSDATE, (itemPrice * [Quantity]) as TotalPrice FROM [Item] as I, POSDetail as PD, POS as P WHERE I.ItemNo = PD.itemNo And PD.InvoiceNO = P.InvoiceNo AND P.InvoiceNo = '" & frmPOS.lblInvoiceNo.Text & "' ORDER By iDescription"
            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            dgw.Rows.Clear()
            getTotal = 0.0
            getQuantity = 0.0
            Do While dr.Read = True
                dgw.Rows.Add(dr("Quantity"), dr("iDescription"), dr("Itemprice"), dr("TotalPrice"))
                getTotal += dr("TotalPrice")
                getQuantity += dr(2)
                dgw.Height += 19
                x += 19
            Loop
            Y = x - 30
            dgw.Height = dgw.Height - 20
            lblTotal.Text = Format(getTotal, "#,##0.00")
            lblVat.Location = New Point(204, 212 + Y)
            vat.Location = New Point(4, 212 + Y)
            subTotal.Location = New Point(3, 227 + Y)
            lblSubtotal.Location = New Point(203, 227 + Y)
            TotalAmount.Location = New Point(3, 245 + Y)
            lblTotal.Location = New Point(203, 245 + Y)
            Cash.Location = New Point(3, 262 + Y)
            lblCash.Location = New Point(203, 262 + Y)
            change.Location = New Point(3, 280 + Y)
            lblChange.Location = New Point(203, 280 + Y)
            lblLine.Location = New Point(4, 299 + Y)
            lblOR.Location = New Point(46, 315 + Y)
            lblThank.Location = New Point(62, 331 + Y)
            Panel1.Height = Panel1.Height + Y
            Me.Height = Me.Height + Y
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
            conn.Close()
        End Try
    End Sub
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)

        Panel1.DrawToBitmap(bm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))

        e.Graphics.DrawImage(bm, 0, 0)
        Dim aPS As New PageSetupDialog
        aPS.Document = PrintDocument1
    End Sub


    Private Sub frmPrintReceipt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label7.Text = Format(Date.Now, "Short Date")
        Label9.Text = Format(Date.Now, "Long Time")
        lblInvoice.Text = frmPOS.lblInvoiceNo.Text
        LoadCustomer()
        GetVatNonVat()
        getCashChange()
        getEmployee()
        LoadReceipt()
        PrintDocument1.Print()
        frmPOS.txtSearch.Focus()
        Me.Close()
    End Sub 
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
Bonjour Mervelis.

A chaque question, on te demande de bien présenter ton code, pour nous simplifier la vie.
Tu ne fais pas l'effort, pourquoi ferais je l'effort de m'embêter à lire ton code?

Je te remets, encore une fois le lien vers le petit tuto.
S'il y a quelque chose qui n'est pas suffisamment clair, dis le moi, je corrigerai.
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

Bonjour Whismeril, merci encore de plus pour ta réponse.
je voudrais savoir comment appliquer le traitement d'image à Bm
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

Bonjour Whismeril, tout ce code je veux le placer sur quel événement?
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020
437
Je dirais ici
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bm As New Bitmap(Me.Panel1.Width, Me.Panel1.Height)

        Panel1.DrawToBitmap(bm, New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height))
        'là
        e.Graphics.DrawImage(bm, 0, 0)
        Dim aPS As New PageSetupDialog
        aPS.Document = PrintDocument1
    End Sub


Entre le moment où tu crées le bitmap et le moment où tu le passes à l'imprimante.
>
Messages postés
14784
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
27 septembre 2020

Bonsoir Whismeril, merci beaucoup je le test et je vous informerai de ce qui sera passé