ORDER BY PROCESO.DESCRIPCION_PROCESO, PIEZA.MEDIDA1, PIEZA.MEDIDA2, PIEZA.ESPESOR"
If altura > 1600 Then
Printer.NewPage
altura = 200
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Ref"
izda = izda + 100 '1085
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Producto"
izda = izda + 500 '3360
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Pieza"
izda = izda + 400 '2615
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Uds"
izda = izda + 100 '1345
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Proceso"
izda = izda + 350 '2280
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "M1"
izda = izda + 75 '840
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "M2"
izda = izda + 75 '840
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Esp"
izda = izda + 75 '840
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Long"
izda = izda + 100 '840
Printer.CurrentY = altura
Printer.CurrentX = izda
Printer.Print "Tiempo"
'izda = izda + 75 '850
Printer.Line Step(100, 0)-Step(izda, 5), Color, BF
izda = 100
altura = altura + 50
End If
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
