Imprimir varias hojas en visual basic
Tengo la siguiente funcion para imprimir un text multiline pero cuando se pasa de toda la pagina imprime la siguiente pagina solo la primer linea el caso es q me imprime una linea por hoja ojala me pueda ayudar
Dim lineas() As String
Dim b, c As Double
Dim lineas1() As String
Dim d, e As Double
lineas = Split(orden, vbNewLine)
lineas1 = Split(acuerdos, vbNewLine)
b = 3100
c = 900
For a = LBound(lineas) To UBound(lineas)
Printer.CurrentX = c
Printer.CurrentY = b
b = b + 400 'aqui incremento lo necesario para el espaciado lineal
Printer.Print lineas(a)
Next
d = 8000
e = 900
For i = LBound(lineas1) To UBound(lineas1)
Printer.CurrentX = e
Printer.CurrentY = d
d = d + 400
Printer.Print lineas1(i)
Next
Printer. Endoc
Y ya utilice poniendole printer. Newpage pero no funciona asi
Dim lineas() As String
Dim b, c As Double
Dim lineas1() As String
Dim d, e As Double
lineas = Split(orden, vbNewLine)
lineas1 = Split(acuerdos, vbNewLine)
b = 3100
c = 900
For a = LBound(lineas) To UBound(lineas)
Printer.CurrentX = c
Printer.CurrentY = b
b = b + 400 'aqui incremento lo necesario para el espaciado lineal
Printer.Print lineas(a)
Next
d = 8000
e = 900
For i = LBound(lineas1) To UBound(lineas1)
Printer.CurrentX = e
Printer.CurrentY = d
d = d + 400
Printer.Print lineas1(i)
Next
Printer. Endoc
Y ya utilice poniendole printer. Newpage pero no funciona asi