Visual Basic - urge problemas al imprimir

Life is soft - evento anual de software empresarial
 
Vista:

urge problemas al imprimir

Publicado por mortade-lo (29 intervenciones) el 11/10/2001 15:12:29
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

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de diana

RE:urge problemas al imprimir

Publicado por diana (139 intervenciones) el 12/10/2001 02:13:44
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar