Xailer & OZ Software

A pesar de que está indicada la instrucción Printer:nPreviewShowMode
:= smMAXIMIZE
al mostrarse no maximiza, a alguién le ha ocurrido esto, ó será un bug,
tengo la versión: 2.0.18
a continuación presento un trozo de código.
Que estoy haciendo mal?
Gracias
Alex
Printer:nPrinterIndex := 1
Printer:nPaperSizeType := 1 // CARTA
Printer:nPreviewShowMode := smMAXIMIZE
Printer:cJobTitle := 'Cotización'
Printer:lPreview := .T.
Printer:StartDoc()
Printer:StartPage()
WITH OBJECT Printer:oCanvas
:SelectPen( oPen )
:oFont := oFont
:nMapMode := mmSIMULCHAR
:lTransparent := .T.
:nTextAlignment := taLEFT
:nTextVAlignment := vaTOP
:TextOut(l_nCol+93,l_nRen++,"Subtotal 999,999.99")
:TextOut(l_nCol+93,l_nRen++," IVA 999,999.99")
:TextOut(l_nCol+93,l_nRen++," Total 999,999.99")
END WITH
Printer:EndPage()
Printer:EndDoc()
WITH OBJECT Printer:PreviewControl()
:nZoomIndex := g_nZoomR
:oParent:ShowModal()
END WITH
oFont:Destroy()
oBmp:Destroy()
oPen:Destroy()

Por favor solo oriéntenme si es un bug de Xailer
Saludos
Alex
El 13/11/2010 10:10, Alex escribió:
> A pesar de que está indicada la instrucción
> Printer:nPreviewShowMode := smMAXIMIZE
> al mostrarse no maximiza, a alguién le ha ocurrido esto, ó será un
> bug, tengo la versión: 2.0.18
> a continuación presento un trozo de código.
>
> Que estoy haciendo mal?
>
> Gracias
>
> Alex
>
> Printer:nPrinterIndex := 1
> Printer:nPaperSizeType := 1 // CARTA
> Printer:nPreviewShowMode := smMAXIMIZE
> Printer:cJobTitle := 'Cotización'
> Printer:lPreview := .T.
> Printer:StartDoc()
> Printer:StartPage()
> WITH OBJECT Printer:oCanvas
> :SelectPen( oPen )
> :oFont := oFont
> :nMapMode := mmSIMULCHAR
> :lTransparent := .T.
> :nTextAlignment := taLEFT
> :nTextVAlignment := vaTOP
> :TextOut(l_nCol+93,l_nRen++,"Subtotal 999,999.99")
> :TextOut(l_nCol+93,l_nRen++," IVA 999,999.99")
> :TextOut(l_nCol+93,l_nRen++," Total 999,999.99")
> END WITH
> Printer:EndPage()
> Printer:EndDoc()
> WITH OBJECT Printer:PreviewControl()
> :nZoomIndex := g_nZoomR
> :oParent:ShowModal()
> END WITH
> oFont:Destroy()
> oBmp:Destroy()
> oPen:Destroy()

Solucionado..
Printer:Preview(smMAXIMIZE)
en ves de:
Printer:PreviewControl()
Gracias
Alex
>A pesar de que est? indicada la instrucci?n Printer:nPreviewShowMode
>:= smMAXIMIZE
>al mostrarse no maximiza, a algui?n le ha ocurrido esto, ? ser? un bug,
>tengo la versi?n: 2.0.18
>a continuaci?n presento un trozo de c?digo.
>
>Que estoy haciendo mal?
>
>Gracias
>
>Alex
>
> Printer:nPrinterIndex := 1
> Printer:nPaperSizeType := 1 // CARTA
> Printer:nPreviewShowMode := smMAXIMIZE
> Printer:cJobTitle := 'Cotizaci?n'
> Printer:lPreview := .T.
> Printer:StartDoc()
> Printer:StartPage()
> WITH OBJECT Printer:oCanvas
> :SelectPen( oPen )
> :oFont := oFont
> :nMapMode := mmSIMULCHAR
> :lTransparent := .T.
> :nTextAlignment := taLEFT
> :nTextVAlignment := vaTOP
> :TextOut(l_nCol+93,l_nRen++,"Subtotal 999,999.99")
> :TextOut(l_nCol+93,l_nRen++," IVA 999,999.99")
> :TextOut(l_nCol+93,l_nRen++," Total 999,999.99")
> END WITH
> Printer:EndPage()
> Printer:EndDoc()
> WITH OBJECT Printer:PreviewControl()
> :nZoomIndex := g_nZoomR
> :oParent:ShowModal()
> END WITH
> oFont:Destroy()
> oBmp:Destroy()
> oPen:Destroy()
>
>