Salto de Línea en VB6
Tengo una aplicación en VB6 en la que utilizo algunas variables para imprimir un formato, la cuestión es que a veces el valor de la variable que se imprime contiene una descripción demasiado larga, lo que quiero es que se imprima en 2 renglones, ¿cómo le puedo hacer?
Parte del código es el siguiente:
Private Sub Imprime()
Printer.Orientation = 2
Printer.Font.Bold = True
Printer.FontBold = True
Printer.PrintQuality = -1
Printer.FontSize = 36
Printer.FontName = Printer.Fonts(7)
Printer.Print " " & Format(precio1, "###0.00")
Printer.FontName = Printer.Fonts(17)
Printer.Font.Size = 7
Printer.Print " " & nombre1
Printer.Font.Size = 6
Printer.Print " " & codigo1
Printer. Print " "
Printer. Print " "
Printer. Print " "
Printer. Print " "
Printer. Print " "
Printer.FontName = Printer.Fonts(7)
Printer.FontSize = 36
Printer.Print " " & Format(precio2, "###0.00")
Printer.FontName = Printer.Fonts(17)
Printer.Font.Size = 7
Printer.Print " " & nombre2
Printer.Font.Size = 6
Printer.Print " " & codigo2
Printer.EndDoc
End Sub
Parte del código es el siguiente:
Private Sub Imprime()
Printer.Orientation = 2
Printer.Font.Bold = True
Printer.FontBold = True
Printer.PrintQuality = -1
Printer.FontSize = 36
Printer.FontName = Printer.Fonts(7)
Printer.Print " " & Format(precio1, "###0.00")
Printer.FontName = Printer.Fonts(17)
Printer.Font.Size = 7
Printer.Print " " & nombre1
Printer.Font.Size = 6
Printer.Print " " & codigo1
Printer. Print " "
Printer. Print " "
Printer. Print " "
Printer. Print " "
Printer. Print " "
Printer.FontName = Printer.Fonts(7)
Printer.FontSize = 36
Printer.Print " " & Format(precio2, "###0.00")
Printer.FontName = Printer.Fonts(17)
Printer.Font.Size = 7
Printer.Print " " & nombre2
Printer.Font.Size = 6
Printer.Print " " & codigo2
Printer.EndDoc
End Sub
1 Respuesta
Respuesta de denciso