
impresion
Publicado por marcelo (6 intervenciones) el 18/06/2012 03:09:28
buenos dias.. estoy trabajando en caracter y tratando de imprimir sobres, no se como cambiar la orientacion de pagina.. desde ya muchas gracias.
/********SOBRES **********/
procedure sobres:
def var quienes as c.
if pro.sex-pro = "F" then
assign quienes = "Se¤ora:".
else
assign quienes = "Se¤or:".
output stream simp to printer page-size 0.
put stream simp unformatted
inicia line110 " " skip(13)
space(27) p071 quienes skip(1)
space(27) p071 pro.nom-pro skip(1)
space(27) p071 pro.dom-pro skip(1)
space(27) p071 pro.loc-pro skip final.
output stream simp close.
end.
/******fin sobres *******/
/********SOBRES **********/
procedure sobres:
def var quienes as c.
if pro.sex-pro = "F" then
assign quienes = "Se¤ora:".
else
assign quienes = "Se¤or:".
output stream simp to printer page-size 0.
put stream simp unformatted
inicia line110 " " skip(13)
space(27) p071 quienes skip(1)
space(27) p071 pro.nom-pro skip(1)
space(27) p071 pro.dom-pro skip(1)
space(27) p071 pro.loc-pro skip final.
output stream simp close.
end.
/******fin sobres *******/
Valora esta pregunta


0