What worong in my code.
The Printer not works like I wont in (HP LaseretIIIP)
*________________________________
*Handleing the orientation
cOrientation=ThisForm.xOption1.value && Get 1 or 2

set console off
set device to printer
set printer on
ThisForm.VBP.Orientation=cOrientation && This not work
SET PRINTER FONT 'Courier', 10 Style 'N'
@ 8,1 say 'Exampel of orientation printer In English'
@ 9,1 say 'ãåâîà ìäãôñä '+'In Hebrew'

*eject && this work of course
ThisForm.VBP.NewPage && This work only the second job
set printer off
set console on
set device to screen
thisform.release()
*_____________________________