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?