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()
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Printer:nPreviewShowMode := smMAXIMIZE No Maximiza la ventana
Printer:nPreviewShowMode := smMAXIMIZE No Maximiza la ventana
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()
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()
Printer:nPreviewShowMode := smMAXIMIZE No Maximiza la ventana
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()
>
>
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()
>
>