Error al Generar un PDF desde el preview

[miarcod]

Buenas tardes,

Me encuentro que en algún equipo, se produce el siguiente error al intentar guardar una previsualización como PDF

Code: Select all  Expand view  RUN

   Error description: (DOS Error -2147023170) WINOLE/1006  Error de argumento: _ORIENTATION
   Args:
     [   1] = N   0
...

 Called from:  => TOLEAUTO:_ORIENTATION( 0 )
   Called from: PREVIEW.PRG => CONVERTTOWORDDOC( 1939 )
 

Observo que intenta pasarlo por word, pero yo el botón que pulso es el de PDF

El mismo programa en otros equipos lo hace correctamente.

Los equipos tienen instalado el Word 2019 tanto en los que lo hace bien como en los que genera el error.

Alguna ayuda.
Gracias de antemano

[Antonio Linares]

viewtopic.php?f=3&t=23813&start=0&hilit=TOLEAUTO%3A_ORIENTATION

[miarcod]

Gracias Antonio

Sigo sin ver el problema, en el hilo que me indicas habla de un problema con Excel y con el servicio de impresión. Pero en el equipo donde se produce el problema, el servicio de impresión funciona y se puede imprimir en la impresora. He probado a poner la impresora pdf de windows com predeterminada pero nada.

Un saludo.

[karinha]

Buenos días, ¿puede publicar algún ejemplo práctico para que lo pruebe aquí en Windows 7?

Saludos.

[karinha]

Code: Select all  Expand view  RUN

// C:\FWH...\SAMPLES\DAMIANO.PRG

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL cComeFrom := "GeneratePDF" // "With preview"

   // oPrn:SetCopies( nCopie ) // Does not work
   LOCAL nCopie := 1

   nSetCopies( nCopie, cComeFrom ) // nCopies

RETURN NIL

FUNCTION nSetCopies( nCopie, cComeFrom )

   LOCAL nI

   FOR nI := 1 TO nCopie

      MsgRun( "PREVIEW.  WAIT...", ;
              "Wait a Moment... ", ;
              { || CursorWait(), WinExec( Imp_Damiano( cComeFrom ) ), 3 } )

   NEXT

RETURN NIL

FUNCTION Imp_Damiano( cComeFrom )

   LOCAL aPrn, oPrn, oFont, oFont2, oFont3, m_Get := ARRAY(5)
   LOCAL nRowStep, nColStep

   m_Get[01] := DTOC( DATE() )

   aPrn := GetPrinters()

   IF Empty( aPrn )
      RETURN NIL
   ENDIF

   PRINTER oPrn PREVIEW MODAL

   IF EMPTY( oPrn:hDC )
      oPrn:End()
      RETURN( .F. )
   ENDIF

   oPrn:End()

   IF cComeFrom = "Directtoprinter"

      PRINT oPrn NAME "Cartellino finiti"      // Direct to the printer

   ELSEIF cComeFrom = "With preview"

      PRINT oPrn NAME "Cartellino finiti" PREVIEW MODAL // With preview

   ELSEIF cComeFrom = "GeneratePDF"

      PRINT oPrn PREVIEW                                // Generate PDF

   ENDIF
   
   DEFINE FONT oFont  NAME "Bahnschrift Light Condensed" SIZE 0, - 18 BOLD OF oPrn
   DEFINE FONT oFont2 NAME "Bahnschrift Light Condensed" SIZE 0, - 26 BOLD OF oPrn
   DEFINE FONT oFont3 NAME "Bahnschrift Light Condensed" SIZE 0, - 20 BOLD OF oPrn

   nRowStep = oPrn:nVertRes() / 40     // 56  righe
   nColStep = oPrn:nHorzRes() / 80    // 170 colonne
   
   PAGE

      // oPrn:Say( nRowStep * 2, nColStep * 65, Transform( m_Get[01],"@D 99/99/9999" ), oFont3 ) //Data
      oPrn:Say( nRowStep * 2, nColStep * 65, TRANSF( m_Get[01],"@D 99/99/9999" ), oFont3 ) //Data

   ENDPAGE

   ENDPRINT

   IF cComeFrom = "GeneratePDF"

      FWSavePreviewToPDF( oPrn, "Cartellino.pdf", .F. )

   ENDIF

   oFont:End()
   oFont2:End()
   oFont3:End()

RETURN NIL
 

Saludos.

[miarcod]

El caso es que el mismo programa en unos equipos funciona correctamente y en otros genera el error.

[karinha]

¿Cuál es la configuración de las computadoras en las que se produce el problema?
¿Cuál es la versión de Windows en las computadoras que funcionan y las que no?
Proporcione un ejemplo simple de cómo genera el informe para que podamos ver si hay algo que pueda desencadenar esto.
¿Están todos los sistemas operativos (windows) actualizados?
¿Todas las impresoras tienen sus controladores correctos?
Proporcione tanta información como sea posible, incluso información que crea que no es relevante.

Regards, saludos.