Inicio
Informática formularios
Química Picaduras
Química olor a lejía.
Informática Iniciar windows
Informática crear un DVD.
Informática SpyBoot
Informática v-ray
Química mezcla frigorífica
Química tinta china
Informática El refresco.
Informática Metabuscador
Informática buscar con google
Informática firma digital
Informática permisos
Alimentación Dioxina
Informática wifi
Informática scrollbar
Ordendador en un solo chip
Glogos de hidrógeno
Estilos de peinado
Podcast de Ciencia de la RTVE
Normal.dot
Autopistas eléctricas
Asi se hace
Vista y xp
Informe del cambio climático
Impresión profesional Pdfcreator
Tutorial Dojo Español
Motor de imanes
Protección infantil
Reproductor de video flv
Trabajo de electricidad de mi hijo
Vmware workstation
Curso de informática para empresa
El mayor yacimiento de dinosaurios de Europa
El globo terrestre
Reventa de libros
Sintetizador en flash
Ecología y deporte
Antes de compar un televisor
Todo un mundo en una gota
Contador de visitas para Blogger
Tu rostro en 3D
Fondo musical libre
Editar Pdf sin Acrobat
Metales Raros
Pintar en 3D con gafas rojo azul
Ideas
Bll Gates invierte en un nuevo reactor nuclear
Generador Grafico de Funciones
Generador Sopas de Letras
Secuenciador online audiotool
Vídeos 3D al alcance de todos.
Biodiesel 2ª Generación
Bitcoin La moneda sin fronteras.
Curso completo de modelado en plastilina
Algunos inventos que se me ocurren.
Copiar 2 DVD en UNO con DVD Shrink
Grafico electricidad en España
Virus gosearch
Recubrimiento teflon casero
En Windows 10 apache no funciona.
Solucionado charterset mysql php y paypal
Calculadora quimica

TERMINO DE BUSQUEDA :




Two Esex Vip
Comercial de Hostelería
Asociación Retor Orbita
Doblados Mayorista Lencería
Certificado de eficiencia energética
Mca&asesores
CVA-Arquitectos
Asesoría-Gestoría-Auditoría
Centris English School
Aparcamiento Caravanas Sevilla
Tienda Hípica
Reparación de motores eléctricos
33LSQ Arquitectura
Jiper.es placas refectantes
Maria Lorca Susino Analista Económica
Manuales de máquinas de coser
Democracia Culta
JR Whelee Bicicletas, motos, quads y radio control
Hotel Patio de las Cruces
Palober máquinas de hostelería
Hostal Jentoft Sevilla
Vaposima venta y reparación de máquinas de coser y planchar
la física recreativa
Hisplasol energía Solar
Queregalo de boda
Infopesaje, básculas y balanzas
Hermandad Hacienda Sevilla
Eterea estudios-Cristobal Vila.
Pintor José Luis Madrazo

Evalgon


Impresión profesional Pdfcreator

Si no dispones de una fotocopiadora/ impresora profesional, que pueda impresionar firmas, fondos y procesar distintos tipos de impresión o quieres que el software se encargue de esta tarea antes de enviar a la impresora cada uno de los documentos has de utilizar esta combinación de programas.

Pdfcreator gratuito, busca la última versión, imprime en pdf y permite la modificación posterior del pdf creado.

Descargar el programa Pdfcreator , descargar Pdftk

Instalamos Pdftk en la carpeta C:\Program Files (x86)\PDFCreator\Scripts\RunProgramAfterSaving, o en la carpeta donde se encuentre el programa pdfcreator\Script\RunProgramAfterSaving

Se instala ahí porque de esa forma no teneís que localizar el programa pdftk en las rutinas que creamos.

Pdftk.exe gratuito, todo tipo de operaciones sobre documentos pdf, parte fundamental para el procesado de los pdf.

Acrobat reader, nos servirá para imprimir en papel, mediante linea de commandos.

VisualBasic Sprinting procesos para windows, gracias a los cuales podemos hacer funcionar ambos programas.

Pasamos a la practica.

Problema planteado: tengo un contenido que he de enviar a varios clientes, este contenido está en formato Doc, lo primero que hago es imprimir este con la impresora pdfcreator y obtengo el pdf resultante, y lo nombro como catalogo.pdf

Escribo una carta totalmente personalizada a cada cliente y quiero que se imprima  con un fondo corporativo y se firme, además quiero que la primera copia sea para archivo y la segunda aparezca unida al catálogo y grapada.

Primero en un papel corporativo hacemos la firma en es sitio adecuado, y escaneamos dicho documento como firmacorporativa.pdf.

Segundo escaneamos un papel en blanco y guardamos como blanco.pdf

Tercero entramos en la configuración de pdfcreator e activamos el autoguardado, y proceso después de aquí creamos un script en vbscript lo antes dicho y yo lo colocaré más adelante.

Cuarto activamos la impresora pdfcreator como predeterminada.

Quinto editamos la carta en word y la imprimimos.

El proceso es el siguiente, se crea un documento pdf solo con el contenido de la carta, después se le funde con el fondo y firma corporativa, se le añade una hoja en blanco blanco.pdf esto se imprime, después se une el catálogo y se imprime con la impresora con la opción de grapado.

En la carpeta pdfcreator\Script\RunProgramAfterSaving tenemos que tener estos archivos

proceso.vbs

' Modificar esta ruta donde sea necesario C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\acroRd32.exe
' Modificaciones de evalgon.com
' License: GPL
' Homepage: http://www.sf.net/projects/pdfcreator
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer, modificado por evalgon.
' Comments: This script needs pdftk. 
'           For more informations about the freeware pdftk use this link:
'           http://www.accesspdf.com

Option Explicit

Const AppTitle = "PDFCreator - AddWatermarkToPDF"   'titulo de la aplicación
Const PathToPdftk = "pdftk.exe"       'ruta del ejecutable.  
Const WatermarkPDF = "firmacorporativa.pdf"                'fondo con el membrete y la firma. 


Dim objArgs, fname, tfname, fso, WshShell, oExec, bloc

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
 MsgBox "This script needs a parameter!", vbExclamation, AppTitle
 WScript.Quit
End If

fname = objArgs(0)      'linea 30

Set fso = CreateObject("Scripting.FileSystemObject")

If Ucase(fso.GetExtensionName(fname)) <> "PDF" Then
 MsgBox "This script works only with pdf files!", vbExclamation, AppTitle
 WScript.Quit
End If

If Not fso.FileExists(PathToPdftk) Then
 MsgBox "You need pdftk for this script!" & vbcrlf & vbcrlf & _
  "Please go to http://www.accesspdf.com and download it.", vbExclamation, AppTitle
 WScript.Quit
End If

If Not fso.FileExists(WatermarkPDF) Then
 MsgBox "Can't find the watermark pdf file!", vbExclamation, AppTitle
 WScript.Quit
End If

' Añade a la carta el fondo corporativo firmado
Set WshShell = CreateObject("WScript.Shell")     
tfname = fso.GetTempName 
WshShell.Run PathToPdftk & " """ & fname & """ background " & WatermarkPDF & " output """ & tfname & """",0,true

If Not fso.FileExists(tfname) Then
 MsgBox "There was an error using ""pdftk""!", vbCritical, AppTitle
 WScript.Quit
End If

If fso.FileExists(fname) Then
 fso.DeleteFile(fname)
End If

fso.MoveFile tfname, fname

' Después imprime este documento   CUIDADO PONER NOMBRE DE LA IMPRESORA. 
' y la ruta de acrobat
Set WshShell = createobject("wscript.shell")
Set bloc = WshShell.Exec("""C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\acroRd32.exe""" & " /t " & """" & fname & """" & " " & """RICOH Aficio MP 6500 RPCS""")
Wscript.sleep 5000  ' 5 segundos de espera				
bloc.terminate


'se une un papel en blanco a la carta y se une el catalogo.pdf


Set WshShell = CreateObject("WScript.Shell")
tfname = fso.GetTempName 
WshShell.Run PathToPdftk & " """ & fname & """ blanco.pdf catalogo.pdf cat  output """ & tfname & """",0,true

If fso.FileExists(fname) Then
 fso.DeleteFile(fname)
End If

fso.MoveFile tfname, fname

' Imprimimos el ultimo documento 
Set WshShell = createobject("wscript.shell")
Set bloc = WshShell.Exec("""C:\Archivos de programa\Adobe\Acrobat 7.0\Reader\acroRd32.exe""" & " /t " & """" & fname & """" & " " & """RICOH Aficio MP 6500 RPCS""")
Wscript.sleep 5000  ' 5 segundos de espera				
bloc.terminate