Tamaño De fuente con System.Drawing.Printing
Publicado por thefalcon (13 intervenciones) el 22/12/2021 21:05:29
Buenas, tengo un problema, encontré una librería para Imprimir Tickets en una Impresora , y lo hago sin problemas,
pero no se cómo hacer para que la fuente sea mas grande a la hora de imprimir, ni si es posible.
a ver si alguien puede echarme una mano
en la función el método que modifique y uso es para imprimir Cantidad y Articulo
luego en el Código al imprimir lo llamo así
pero no se cómo hacer para que la fuente sea mas grande a la hora de imprimir, ni si es posible.
a ver si alguien puede echarme una mano
en la función el método que modifique y uso es para imprimir Cantidad y Articulo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Public Sub AgregarComanda(ByVal cant As String, ByVal articulo As String)
Dim elemento As String = "", espacios As String = ""
Dim bandera As Boolean = False Dim nroEspacios As Integer = 0For i As Integer = 0 To (10 - articulo.Length) - 1
espacios += " "
Next
elemento = articulo & espacios
nroEspacios = (7 - cant.ToString.Length) '/ +(20 - elemento.Length);
espacios = ""
For i As Integer = 0 To nroEspacios - 1
espacios += " "
Next
elemento += espacios & cant.ToString()
linea.AppendLine(elemento)
End Sub
luego en el Código al imprimir lo llamo así
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim ticket As CrearTickets = New CrearTickets()
ticket.TextoCentro("COMANDA ")
Dim i As Integer = 0While i < DGV_Pedidos.RowCount
Dim cantidad As Double = DGVenta.Item(0, i).Value
Dim articulo As String = DGVenta.Item(1, i).Value
ticket.AgregarComanda(articulo, cantidad)
i += 1
End While
ticket.CortaTicket()
ticket.ImprimirTicket(Imp_Ticket) 'Nombre de la impresora
Valora esta pregunta
0