como canviar la fuente de la impresora

ferrar1000 · #1 (**permalink**) 15/08/2007, 04:37

buenas miren tengo un boton que imprime un texto que hay en un listbox con este codigo:

Código:

Private Sub Command1_Click()
Dim imprime2 As Integer
Dim imprime3  As String
imprime2 = 0
imprime3 = List1.List(imprime2)
imprime2 = imprime2 + 1
Do While Not imprime2 = List1.ListCount + 1
imprime3 = imprime3 & vbCrLf & List1.List(imprime2)
imprime2 = imprime2 + 1
Loop
Printer.Print imprime3
Printer.EndDoc
End Sub

el problema esta en que me imprime con una fuente demasiado pequeña.

como podria hacer que me imprimiese mas grande la letra?

ReViJa · #2 (**permalink**) 15/08/2007, 04:51

Se me ocurre así:

Cita:

Printer.Font.Name = "MS Sans Serif"
Printer.Font.Size = 10

Un saludo.

ferrar1000 · #3 (**permalink**) 15/08/2007, 06:07

gracias me fue muy bien