oPrn := Printbegin(....)
PAGE
oPrn:setlandscape()
oPrn:say(.....)
ENDPAGE
PAGE
oPrn:setportrait()
oPrn:say(....)
ENDPAGE
ENDPRINT
#include "fivewin.ch"
function Main()
local oPrn
PRINTER oPrn PREVIEW
PAGE
oPrn:setlandscape()
oPrn:say( 1, 1, "One" )
ENDPAGE
PAGE
oPrn:setportrait()
oPrn:say( 1, 1, "One" )
ENDPAGE
ENDPRINT
return nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 28 guests