Visual Basic - urge problemas al imprimir

bueno estoy utilizando el objeto printer me imprime un texto de prueba que solo ocupa una linea , cuando aumento el tamaño de la letra el mismo texto se crea en dos lineas es entonces cuando la segunda linea
no la imprime . este es el codigo.

Dim Texto As String

Texto = CStr(Text1.Text)
Printer.Orientation = 1
Printer.ScaleMode = vbMilimeters
Printer.PaperSize = vbPRPSA4
Printer.FontName = Form1.Combo1.Text
Printer.FontSize = Form1.Combo2.Text
Printer.CurrentX = 100
Printer.CurrentY = 150
Printer.Print Texto
Printer.EndDoc

hola, mira si entiendo a lo que te refieres yo lo que hago es separar por cantidad de caracteres el texto y dar una especie de saltos de linea por medio del siguiente codigo:
sTexto = txtDato(19)
Printer.Print Left(sTexto, 60)
While Len(sTexto) <> 0 And Len(sTexto) > 60
Printer.CurrentX = 27
If Len(sTexto) > 60 Then
sTexto = Right(sTexto, Len(sTexto) - 60)
Else
sTexto = ""
End If
Printer.Print Left(sTexto, 60)
Wend

espero lo entiendas y te sirva