Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
PDF printing on LAN/WAN
Message
 
General information
Forum:
Visual FoxPro
Category:
Third party products
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01395213
Message ID:
01395460
Views:
88
>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.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform