Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
PDF printing on LAN/WAN
Message
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Divers
Thread ID:
01395213
Message ID:
01395460
Vues:
89
>I did get an email response from the PDF995 folks yesterday but it failed to clarify whether the product can actually do what I ask of it. It seems that most of these companies have no clue how developers might want to use their product. I don't want to print anything or view anything or edit anything--or even combine documents (at least at this point.) I just want to create PDF files on disk with a name and path supplied by the VFP application WITHOUT popping up any dialogs. Do you know if PDF995 can do this?
Macro is...
Sub PDFPost00()
'
' PDF_Post Macro
' Macro recorded 12/6/2005 by koc4345
'
For nTabs = 1 To 5
   Sheets(nTabs).Select

' This Section creates a PDF in a temp directory established in PDF995 (Port may differ per PC)
    Cells.Select
    Application.ActivePrinter = "PDF995 on Ne01:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "PDF995 on Ne01:", Collate:=True

' This Section identifies the PDF destination file name

  cDestFName = Mid$(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 4) & " " & ActiveWindow.ActiveSheet.Name & ".pdf"
  newHour = Hour(Now())
  newMinute = Minute(Now())
  newSecond = Second(Now()) + 3
  waitTime = TimeSerial(newHour, newMinute, newSecond)
  Application.Wait waitTime
 
' This Section will repost the PDF

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set aFile = fso.GetFile("\Kapps\KohlerChart\Temp\HTML_PDF.pdf")
      aFile.Copy ("\\koshfp01\KohlerChart\HTML\" & cDestFName)
  newHour = Hour(Now())
  newMinute = Minute(Now())
  newSecond = Second(Now()) + 1
  waitTime = TimeSerial(newHour, newMinute, newSecond)
  Application.Wait waitTime
Next nTabs
Range("A1", "A3").Select

End Sub
VFP code is simular
Edgar L. Bolton, B.S. B.B.A.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform