Crea catalogo jpg to pdf

Attribute VB_Name = "m_crea_catalogo_jpg_to_pdf"

'

'

Option Explicit

'

' vba - crea file Pdf da un elenco di immagini jpg.

' utilizza la classe: "mjwPDF"

'

' riferimenti classe:

' Creating PDF files in Visual Basic

' "mjwPDF 1.0"

' classe scaricabile dal sito:

' http://www.vb6.us/tutorials/visual-basic-tutorial-pdf

'

Sub CatalogoImmaginiPdf()

'

Dim immagine

Dim foglio, quanterighe, conta, quantejpg, contajpg, filejpg As String, titolodocumento

Dim percorsodocumentodacreare, percorsopdffonts, percorsojpg, txtlink

Set foglio = Sheets("db")

quanterighe = foglio.UsedRange.Rows.Count

quantejpg = 10

'

titolodocumento = "documento di prova pdf"

txtlink = "http:// il vostro sito da dichiare"

percorsodocumentodacreare = "C:\catalogo-jpg.pdf"

percorsopdffonts = "C:\pdfFonts"

percorsojpg = "c:\jpg\"

' Create a simple PDF file using the mjwPDF class

Dim objPDF As New mjwPDF



' Set the PDF title and filename

objPDF.PDFTitle = titolodocumento

objPDF.PDFFileName = percorsodocumentodacreare



' We must tell the class where the PDF fonts are located

objPDF.PDFLoadAfm = percorsopdffonts



' Set the file properties

objPDF.PDFSetLayoutMode = LAYOUT_DEFAULT

objPDF.PDFFormatPage = FORMAT_A4

objPDF.PDFOrientation = ORIENT_PORTRAIT

objPDF.PDFSetUnit = UNIT_PT



' Lets us set see the bookmark pane when we view the PDF

objPDF.PDFUseOutlines = True

'

' Begin our PDF document

objPDF.PDFBeginDoc

' Lets add a heading

objPDF.PDFSetFont FONT_ARIAL, 12, FONT_BOLD

objPDF.PDFSetDrawColor = vbRed

objPDF.PDFSetTextColor = vbBlack

'objPDF.PDFSetAlignement = ALIGN_Right

objPDF.PDFSetAlignement = ALIGN_Left

objPDF.PDFSetBorder = BORDER_None

'objPDF.PDFSetFill = True

''''

Dim jpgdasinistra As Double, jpgdallalto As Double, jpgaltezza As Double, jpglunghezza As Double

jpgdasinistra = 20

jpgdallalto = 15

jpgaltezza = 50

jpglunghezza = 50

'

contajpg = 0

For conta = 2 To quanterighe

immagine = foglio.Cells(conta, 2)

filejpg = percorsojpg & immagine

'

If Len(immagine) = 0 Then

immagine = "nd.jpg"

End If

'

'Lets add an image to page

objPDF.PDFImage filejpg, jpgdasinistra, jpgdallalto, jpglunghezza, jpgaltezza, CStr(txtlink)

jpgdallalto = jpgdallalto + jpgaltezza + 10

'

contajpg = contajpg + 1

If contajpg > quantejpg Then

contajpg = 0

jpgdallalto = 15

objPDF.PDFEndPage

'Start page

objPDF.PDFNewPage

End If

Next conta

'

' End our PDF document (this will save it to the filename)

objPDF.PDFEndDoc

'

MsgBox "catalogo creato in: " & percorsodocumentodacreare

'

End Sub