Image Viewer CP Pro SDK ActiveX

Image Viewer CP Pro SDK ActiveX

Platform : Windows 11, Windows 10, Windows 8, Vista, XP

It is a PDF Viewer and Document Viewer SDK , Export to PDF ,Image processing, 1D and 2D Barcode Reader, Writer, DICOM and OCR with C#, C++ , VB.NET , VB, Delphi, Vfp, MS Access.

Popular Solution Go   Back

VFP - How to Create PDF Invoice programmatically

Step 1: To install the Image Viewer CP Pro SDK ActiveX, begin by launching the setup file (http://www.viscomsoft.com/demo/imageviewercpprosetup.exe). Select the desired installation folder for the Image Viewer CP Pro SDK ActiveX and continue with the installation on your development computer.

Step 2: Launch VFP - Visual Foxpro. select New Project.

Step 3: Select Tools - Options... , select Control tabs, select Image Viewer CP Pro ActiveX Control, click OK button.


Step 4: Select Forms - click New... button to add new form.

Step 5: Select form1, click Modify button.

Step 6: In Form Controls Toolbar, click View Classes button, then select ActiveX Controls.

Step 7: Now you will see the Image Viewer CP Pro ActiveX Control, drag it on form.

Step 8: Add one combo box, 3 textbox , one button and 4 label on form, the screen like the following picture

Step 9: Select Image Viewer CP Pro ActiveX on form, change the name to ImageViewer1.

Step 10: In Form init event, add the following

thisform.combo1.additem("Arial")

thisform.combo1.additem("Tahoma")

thisform.combo1.additem("Times New Roman")

thisform.combo1.additem("Courier New")

thisform.combo1.ListIndex=1

Step 11: In Create PDF button click event, add the following code

thisform.ImageViewer1.PDFWriterClearAll
 strFont = thisform.Combo1.List(thisform.Combo1.ListIndex)
 
 
*add A4 page
 thisform.ImageViewer1.PDFWriterAddPage( 4, .F.)    
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 450, 50, thisform.text1.value, 30, 0, 0, 0)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 450, 110, "Date:", 12, 0, 0, 0)
 
strPath=sys(5) sys(2003) "company-invoice-logo.jpg"
*invoice logo
 thisform.ImageViewer1.PDFWriterDrawImage (0, strPath, 10, 100, 0.5, 0.5)
      
 
*draw sample date
 
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 490, 110, thisform.text2.value, 12, 0, 0, 0)
      
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 450, 90, "Invoice No.:", 12, 0, 0, 0)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 40, 150, "Bill To:", 12, 0, 0, 0)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 40, 200, "Name:", 12, 0, 0, 0)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 40, 250, "Address:", 12, 0, 0, 0)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 40, 300, "Email:", 12, 0, 0, 0)
 *draw sample company
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 96, 150, thisform.text3.value, 12, 0, 0, 0)
 thisform.ImageViewer1.PDFWriterDrawRectange (0, 40, 380, 550, 35, 1, 74, 74, 74, .T.)
 
 *draw caption
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 40, 365, "DESCRIPTION", 18, 255, 255, 255)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 250, 365, "UNIT", 18, 255, 255, 255)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 350, 365, "UNIT PRICE", 18, 255, 255, 255)
 thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 500, 365, "AMOUNT", 18, 255, 255, 255)
 *draw item 1
  thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 40, 400, "Item 1", 20, 0, 0, 0)
  thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 250, 400, "1", 20, 0, 0, 0)
  thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 350, 400, "100.00", 20, 0, 0, 0)
  thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 500, 400, "$100.00", 20, 0, 0, 0)
  *draw item 2
   thisform.ImageViewer1.PDFWriterDrawText ( 0, strFont, .F., .F., .F., 40, 430, "Item 2", 20, 0, 0, 0)
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 250, 430, "2", 20, 0, 0, 0)
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 350, 430, "100.00", 20, 0, 0, 0)
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 500, 430, "$200.00", 20, 0, 0, 0)
     
  *draw item 3
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 40, 460, "Item 3", 20, 0, 0, 0)
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 250, 460, "2", 20, 0, 0, 0)
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 350, 460, "200.00", 20, 0, 0, 0)
   thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 500, 460, "$400.00", 20, 0, 0, 0)
    
   *draw item 4
    thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 40, 490, "Item 4", 20, 0, 0, 0)
    thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 250, 490, "1", 20, 0, 0, 0)
    thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 350, 490, "500.00", 20, 0, 0, 0)
    thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 500, 490, "$500.00", 20, 0, 0, 0)
    thisform.ImageViewer1.PDFWriterDrawLine (0, 40, 498, 550 40, 495, 1, 0, 0, 0)
* draw total    
     thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .T., .F., .F., 40, 540, "TOTAL", 18, 0, 0, 0)
     thisform.ImageViewer1.PDFWriterDrawText (0, strFont, .F., .F., .F., 496, 540, "$1200.00", 20, 0, 0, 0)
  
      strOutputPDF =GETFILE('pdf', 'Browse output file', 'OK', 1, 'Save')
      
          bResult = thisform.ImageViewer1.PDFWriterCreatePDF(strOutputPDF, "my creator", "my author", "my title", "my subject", "my keywords", "my producer")
            If bResult Then
                =MessageBox("PDF Created")
            EndIf
            
Step 11: Now run the project, click Create PDF button, it can generate the PDF Invoice.



Download this sample source code