Despues de configurar el PDFCreator como un servicio me he dado cuenta de cuando mando a imprimir varias copias, el archivo al guardarlo con la fecha le pone el mismo nombre y lo machaca, de forma que solo me crea un archivo. Este es el LOG:
-dUCRandBGInfo=/Preserve
-dUseFlateCompression=true
-dParseDSCCommentsForDocInfo=true
-dParseDSCComments=true
-dOPM=0
-dOffOptimizations=0
-dLockDistillerParams=false
-dGrayImageDepth=-1
-dASCII85EncodePages=false
-dDefaultRenderingIntent=/Default
-dTransferFunctionInfo=/Preserve
-dPreserveHalftoneInfo=false
-dDetectBlends=true
10/02/2010 17:37:06: Time for converting [PDF without encryption]: 00:00:01:657
10/02/2010 17:37:06: Autosavemodus: Create File ‘\\hades\Departamentos\PDFOUT\sap\20100210173704RDR200092.pdf’ success
10/02/2010 17:37:06: Autosavemodus: Create File ‘\\hades\Departamentos\PDFOUT\sap\20100210173706RDR200092.pdf’
10/02/2010 17:37:06: Ghostscriptparameter:
-IC:\Archivos de programa\PDFCreator\GS8.70\gs8.70\Lib\
-q
-dNOPAUSE
-dBATCH
-sFONTPATH=C:\WINDOWS\Fonts
-sDEVICE=pdfwrite
-dPDFSETTINGS=/default
-dCompatibilityLevel=1.4
-r600x600
-dProcessColorModel=/DeviceCMYK
-dAutoRotatePages=/PageByPage
-dCompressPages=true
-dEmbedAllFonts=true
-dSubsetFonts=true
-dMaxSubsetPct=100
-dConvertCMYKImagesToRGB=false
-sOutputFile=\\syswoody\Departamentos\PDFOUT\sap\20100210173706RDR200092.pdf
-dEncodeColorImages=true
-dAutoFilterColorImages=true
-dEncodeGrayImages=true
-dAutoFilterGrayImages=true
-dEncodeMonoImages=true
-dMonoImageFilter=/CCITTFaxEncode
-dDownsampleMonoImages=false
-dPreserveOverprintSettings=true
-dUCRandBGInfo=/Preserve
-dUseFlateCompression=true
-dParseDSCCommentsForDocInfo=true
-dParseDSCComments=true
-dOPM=0
-dOffOptimizations=0
-dLockDistillerParams=false
-dGrayImageDepth=-1
-dASCII85EncodePages=false
-dDefaultRenderingIntent=/Default
-dTransferFunctionInfo=/Preserve
-dPreserveHalftoneInfo=false
-dDetectBlends=true
10/02/2010 17:37:08: Time for converting [PDF without encryption]: 00:00:01:540
10/02/2010 17:37:08: Autosavemodus: Create File ‘\\syswoody\Departamentos\PDFOUT\sap\20100210173706RDR200092.pdf’ success
En algunos foros indican que poniendo al final del nombre %d indica el numero de copias, antes debes desmarcar en Opciones –> Guardar –> «Permitir caracteres especiales en Ghostscript en el nombre del archivo»
De esta forma cuando enviaba a imprimir el primero me ponia un 1 pero en el segundo se producia un FAILED.
Finalmente lo que hice fue crear un script despues de impresion que le pedia al usuario cuantos copias queria.
Este es mi script.
‘ VariosPDF.vbs.vbs script
‘ Part of PDFCreator
‘ License: GPL
‘ Homepage: http://www.sf.net/projects/pdfcreator
‘ Author: Syswoody
‘ Comment: Solicita el numero de copias a realizar
Option Explicit
Dim objArgs, fname, fso, f, pages, i, sPDFName, pdfjob, pathname, printjob
‘Set printjob = CreateObject(«PDFCreator.clsPDFCreator»)
Set objArgs = WScript.Arguments
Set fso = CreateObject(«Scripting.FileSystemObject»)
Set ws = CreateObject(«WScript.Shell»)
pdfjob = InputBox («Numero de Copias»,»Cantidad de Copias» )
‘fname = objArgs(0)
fname = «\\hades\departamentos\pdfout\sap\20100222093222.pdf»
sPDFName = fso.GetBaseName(fname)
pathname = fso.GetParentFolderName(fname)
‘msgbox fname
‘msgbox sPDFName
‘msgbox pathname
for i=2 to pdfjob
fso.copyfile fname, pathname&»\»&sPDFName&i&».pdf»
next
