Largo de Pagina

[zeasoftware]

Llevo muchas horas intentando hacer que en el Preview se presente el tipo de hoja que he seleccionado a partie de un Formato con comandos para generar mis documentos de impresion, pero, el problema es que por mas que le busco no hayo como hacer que dicha modificacion se pueda ver en el Preview.
Lo que de seo es que en una impresora X (laser), a veces voy a imprimir a media carta y otras veces a carta completa, pero la moficiacion que hago afecta no a la impresion actual si no a la siguiente, y asi sucecivamenten.
La impresion la tengo basada en el ejemplo TDBFDataSet6, espero alguien me ayude como lograrlo o me indique donde ando mal.
WITH OBJECT ::oDevice
Do Case
Case ::nPaperSizeType == 2 //Para imprimir ticket no quiero poner alto de hoja
::nWidth := 1000
::nEndDataRow := 0
:nPaperWidth := ::nWidth
Case ::nPaperSizeType == 1 //Para imprimir media carta
:nWidth := 2159
:nPaperLength := 1397
OtherWise
:nPaperSizeType := 0
EndCase
:nCopies := ::nCopies
:lPreview := ::lPreview
:cJobTitle := ::cJobTitle
:nOrientation := ::nOrientation
:Reset() //No viene documentada
:StartDoc()
:oCanvas:nMapMode := ::nMapMode
:oCanvas:oPen := TPen():New():nColor := ::nColorDefault
:StartPage()
::Templates( ::oDevice )
::PrintHeader()
::PrintBody()
::PrintFooter()
//aqui quiero hacer que se vea toda una tira para impresiones con tickets
If ::nPaperSizeType == 2 .And. ::nEndDataRow == 0
:nPaperLength := ::nYPos
:Reset()
End
:EndPage()
:EndDoc()
Lo que igual quiero lograr es, que la modiciacion afecte solo a la impresion actual, y que dichos cambios en la impresion no afecten la siguiente impresion a realizar.
Gracias de antemano.
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--