🚀 go-pugleaf

hi,


heres what may help you - i could use this today anyway, so a script
for that is a good idea...


functions expect full paths as String - so - i da this with a form -
but it should work hardcoded as well...

as you see this exports to pdf (change the hardcoded output path!)- if
you like to print ...
uhm just replace the export line:

objDoc. PrintOut( InDesign.idPrintOptions.idPrintWithoutDialog
,[XXName Of Printer StyleXX])


J.
-------------------------------------------------------
Option Explicit

Public m_appInDesign As Object
Public m_vntFS As Variant

Public Sub printDir(strDir)
Set m_appInDesign = CreateObject("InDesign.Application")
Set m_vntFS = CreateObject("Scripting.FileSystemObject")

Dim objDir, objFiles, objFile As Variant
Dim i As Integer
Dim strSuffix, strPath As String

Set objDir = m_vntFS.GetFolder(strDir)
For Each objFile In objDir.Files
    strPath = objFile.Path
    strSuffix = Split(strPath, ".")(1)
    If strSuffix = "indd" Then
        printFile objFile.Path
    End If
Next

End

End Sub

Public Sub printBook(strBookFile)
Set m_appInDesign = CreateObject("InDesign.Application")
Set m_vntFS = CreateObject("Scripting.FileSystemObject")

Dim objDir, objFiles, objFile As Variant
Dim i, ii As Integer
Dim strSuffix, strPath As String
Dim objDoc As Object

    strSuffix = Split(strBookFile, ".")(1)
    If strSuffix = "indb" Then
        Set objDoc = m_appInDesign.Open(strBookFile)
        For ii = 1 To objDoc.BookContents.Count
            printFile (objDoc.BookContents.Item(ii).FullName)
        Next
    End If
MsgBox "Done."
End
End Sub

Private Sub printFile(strFileName)
Dim objDoc As Object
Dim strFileName as String
'Need to set Path to whatever here...
StrFileName = "e:\Data\DigiPDF\" & Split(objDoc.Name, ".")(0) & ".pdf"
  Set objDoc = m_appInDesign.Open(strFileName)
  objDoc.Export InDesign.idExportFormat.idExportPDF, strFileName, False,
m_appInDesign.PDFExportStyles.Item("[eBook]")

  objDoc.Close InDesign.idSaveOptions.idDoNotSaveChanges
End Sub

"Luis Oliveira" <lpoliveira@mail.telepac.pt> schrieb im Newsbeitrag
news:1de96a17.-1@WebX.la2eafNXanI...
> Hi,
>
> I'm not very familiar with VB scripting, so i'm thinking someone as
already developed a script to print pages that are on a specified folder
automatically without user intervention. Does someone have a script or a
piece of code to do this.
>
> Thanks