¿Existe el wxpdfcom.dll en el programa Visual Fox Pro?

Hola buen día, ¿quisiera saber si de ecasualidad no sabe si el wxpdfcom.dll este para VFP?

1 Respuesta

Respuesta
1
La verdad es que no se cual es esa librería. Seria bueno que me indiques que quieres hacer entonces te oriento sobre que librería usar ...
Investige y creo que es para generar PDF ... bueno si lo que quieres es hacer un pdf de un reporte lo aconsejable es que tengas una impresora de PDF y mandes a imprimir. ¿De lo contrario dime que quieres pasar a pdf o que quieres hacer?
Ok, efectivamente, espara hacer pdf pero en visual basic loqeu pasa es que me dieron un código de visual basic, y pues busco la manera de acomodarlo, y lo del pdf, me dicen que no lo quieren con una impresora virtual, si no que mande directo ala impresora si tienen el acroba se muestra el pdf si no se imprime directo, saludos
Mmm ... ¿ok solo otra pregunta lo que quieres verificar en pdf es un reporte o es algo diferente?
Si es un reporte
amigo esto es para ver el pdf ahorrita te consigo para generarlo
PUBLIC oform1
oForm1=NEWOBJECT("form1")
oForm1.Show()
RETURN
DEFINE CLASS form1 AS form
    Autocenter = .T.
    Height = 520
    Width = 741
    Caption = "Form1"
    Name = "Form1"
    * PDF file name
    cPdfFileName = "=SPACE(0)"
    * How long to wait for PDF to load
    nPdfLoadTimeout = 30             
    ADD OBJECT txtpdfname AS textbox WITH ;
        Top = 471, Left = 108, Height = 23, Width = 492, ;
        ReadOnly = .T., Name = "txtPdfName"
    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 469, Left = 623, Height = 27, Width = 84, ;
        Caption = "View PDF", Name = "Command1"
    ADD OBJECT owb AS olecontrol WITH ;
        Top = 24, Left = 12, Height = 433, Width = 709, ;
        OleClass = "Shell.Explorer.2", Name = "oWB"
    ADD OBJECT label1 AS label WITH ;
        Height = 17, Left = 36, Top = 474, Width = 63, ;
        Caption = "PDF Name", Name = "Label1"
    PROCEDURE Refresh
        * Required in VFP8 and earlier to prevent an error
        NODEFAULT
    ENDPROC
    PROCEDURE ShowPdf
        LOCAL lnSeconds
        * Clear Web browser control by loading blank page
        Thisform.oWB.OBJECT.Navigate2("About:Blank")
        * Wait for load to complete
        lnSeconds = SECONDS()
        DO WHILE (Thisform.oWB.OBJECT.Busy OR Thisform.oWB.OBJECT.ReadyState <> 4) ;
                AND (SECONDS() - lnSeconds) < This.nPdfLoadTimeout
            DOEVENTS
        ENDDO
        * Load PDF
        WAIT WINDOW NOWAIT "Loading PDF ..."
        Thisform.oWB.OBJECT.Navigate2(Thisform.cPdfFileName)
        * Wait for PDF to load
        lnSeconds = SECONDS()
        DO WHILE (Thisform.oWB.OBJECT.Busy OR Thisform.oWB.OBJECT.ReadyState <> 4) ;
                AND (SECONDS() - lnSeconds) < This. NPdfLoadTimeout
            DOEVENTS
        ENDDO
        WAIT CLEAR
        * PDF display can be adjusted as shown in AdjustPdfView method
         * Uncomment next line if you want to do that and add AdjustPdfView method to the form/class
        *This.AdjustPdfView()
    ENDPROC
    PROCEDURE command1.Click
        * Get PDF file name
        Thisform.cPdfFileName = GETFILE("pdf")
        * Display the name in the textbox
        Thisform.txtPdfName.Value = Thisform.cPdfFileName
        IF NOT EMPTY(Thisform.cPdfFileName)
            * Display PDF
            Thisform. ShowPdf()
        ENDIF
    ENDPROC
Enddefine
Pruébalo y me contás
Tengo este código pero es de Visual Basic cree que se pueda adactar para VFP este es el código que me dieron
Private Sub cmdcirculos_Click()
Dim x As Single
Dim xcentro As Single, ycentro As Single
Dim Radio As Single
Dim Salto As Single
Dim Alfa As Integer
Set Pdf = New PdfDoc
Pdf.AddPage (1)
xcentro = Pdf.GetPageWidth / 2
ycentro = Pdf.GetPageHeight / 2
Radio = ycentro * 1.5
Salto = 0.5
Alfa = Pdf.SetAlpha(0.1, 0.1, 2)
Pdf.SetAlphaState Alfa
While Radio > 0
Pdf.SetDrawColor Rnd(255) * 255, Rnd(255) * 255, Rnd(255) * 255
Pdf.DrawCircle xcentro, ycentro, Radio, 0, 0, PDF_STYLE_DRAW, 0
Radio = Radio - Salto
Wend
NombreDocumento = "circulos.pdf"
Pdf.SaveAsFile (NombreDocumento)
MsgBox ("Ok")
End Sub
Hola, no puedo ejecutar el código que me paso
Mmm posiblemente no tienes vfp 9.0
Ademas no lo podes ejecutar en un botón, lo tienes que hacer en un prg.
Y alo pude ejecutar, pero este epara ver el pdf cierto
Si eso es para ver el pdf en tu formulario, por que lo mejor es no usar aplicaciones extras... Dejame ver mis archivos creo que tengo lo que es hacer un pdf con un reporte ...
Grasi eso es lo que quiero, generar un pdf SIN aplicaciones externas.
Disculpe pudo encontrar, ¿cómo generar el archivo pdf con in reporte?
Saludos
Mmm Disculpa amigo, que no te había respondido, pero bueno encontré un archivo o bueno unos datos que no se exactamente que hacen ya que es un producto pagado sino estoy mal se llama report2any
Bueno con refox encuentras las fuentes pero no investige bien que hace.
mmm, una manera de crear el pdf, SIN imprimirlo, ¿qué solo lo guarde se puede?
Pues, lo que pasa es que no existe actualmente una dll que haga lo que quieres, lo que puedes hacer es fumártela y la realizas, pero sino la mejor forma es generar una impresora virtual, ya que esta no te ocupa tanto proceso al realizar el elemento, y si se puedo yo hice una dll que realiza eso pero realmente no la he encontrado por eso no te la he enviado.
Pero si se puede, ademas no es tan difícil, ya que use dll que me ayudan a generarlo pero necesitas código para generarlo, pero dejame encontrarlo y te lo mando ...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas