¿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 de junio0or
1
1
junio0or, Hola ... Estudio Ingenieria en Sistemas, con experiencia en...
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?
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
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
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
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
Mmm posiblemente no tienes vfp 9.0
Ademas no lo podes ejecutar en un botón, lo tienes que hacer en un prg.
Ademas no lo podes ejecutar en un botón, lo tienes que hacer en un prg.
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 ...
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.
Bueno con refox encuentras las fuentes pero no investige bien que hace.
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 ...
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 ...
- Compartir respuesta
- Anónimo
ahora mismo