Imprimir y abrir '.pdf'

hola, !

Mediante este codigo:
Sub Macro()
Name = "C:\Conta\Ventas\" & [E5] & ".PDF" 'Nombre pdf
Application.ActivePrinter = "CutePDF Writer en CPW2:" 'Activa el CutePDF Writer
ActiveWindow.SelectedSheets.PrintOut PrintToFile:=True,_
PrToFileName:=Name 'para guardar pdf
End Sub
...
donde en la celda [E5] esta el nombre que quiero dar al fichero.pdf , creo/guardo el fichero.pdf ...
Crearlo, lo crea, pero cuando quiero abrirlo con el Adobe Acrobat Reader, me sale el siguiente mensaje de error ...
"Abobe Reader no pudo abrir 'fichero.pdf'.debido a que no es un tipo de archivo admitido o esta danado
(por ejemplo, se envio como adjunto de correo electronico y no se descodifico correctamente. ACEPTAR" y fin, no se puede abrir ...
En cambio si el proceso lo hago "a manita" si reconoce el pdf creado...

- revisa en las propiedades de la impresora "virtual" en el panel de control de windows
y comprueba que no tenga una marca la opcion de: "do not send fonts to adobe pdf"
(y por si las dudas, verifica si tiene marca la opcion de: "prompt for adobe pdf filename")

- tambien pudiera ser algun objeto incrustado que este reducido a una linea por ocultarse filas (graficos, dibujos)

- otra posibilidad seria la resolucion con la que mandas la salida (impresa) del documento -???-

comentas (si enuentras) algun detalle mas... significativo ?
saludos,
hector.

GRACIAS, Hector Miguel por tu interes en el tema y por tu ayuda ...

Es un poco largo pero, vayamos por partes ...
Premisa: Trabajo con W-XP y Excel-2003

A) “… revisa en las propiedades de la impresora "virtual" en el panel de
control de windows y comprueba que no tenga una marca la opcion de: "do not
send fonts to adobe pdf" y por si las dudas, verifica si tiene marca la
opcion de: "prompt for adobe pdf filename")… “
Por mas que he buscado en la propiedades de la impresora "virtual" cutePDF
Writer no he encontrado, lo que me indicas, a continuacion te paso lo que he
visto en opciones avanzadas de estas propiedades, tanto en configuracion de
dispositivo como en configuracion de impresión (y que son la instaladas por
defecto, no modificadas)…
Configuración de dispositivo CutePDF Writer
- Formato de asignacion de bandeja – OnlyOne:A4
Font Substitution Table
- Available PostScript Memory: 4096KB
- Output Protocol: ASCII
- Send CTRL-D Before Each Job: NO
- Send CTRL-D After Each Job: SI
- Convert Gray Text to PostScript Gray: NO
- Convert Gray Graphics to PostScript Gray: NO
- Add Euro Currency Symbol to PstScriptFonts: SI
- Job Timeout: 0 seconds
- Wait Timeout: 300 seconds
- Minimun Font Size to DownLoad as Outline: 100 pixel(s)
- Maximun Font Size to DownLoad as Bitmap: 600 pixel(s)

Configuración de documento CutePDF Writer
- Papel Salida: A4
- Numero de Copias: 1 Copia
Grafico:
- Calidad de Impresion: 600 dpi
- Coincidencia de Color de Imagen:
- Metodo ICM: ICM Desabled
- Intento ICM: Pictures
Escala 100%
Fuente TruType: Sustituir con fuente de dispositivo
Opciones de ducumento:
Avanced Printing Features: Enabled
PostScript Options
- PostScript Output Options: Optimize for Speed
- TrueType Font Download Option: Automatic
- PostScript Language level: 3
- Send PostScript Error Handler: SI
- Mirrored Output: NO

Esto es lo que he visto, y como te he dicho antes no he modificado nada
despues de su instalación.
¿Podrías ser mas explicito en tu comentario e indicarme donde se encuentran
esas opciones?

B) “… tambien pudiera ser algun objeto incrustado que este reducido a una
linea por ocultarse filas (graficos, dibujos) …”
Existe un Dibujo en cabecera … no está oculto ni reducido por linea
(ajustada al tamaño del dibujo)…
Si fuera por ésto, entonces ¿por qué si lo admite cuando se realiza el
proceso “a manita”? (de esa forma, se guarda y se abre perfectamente) …

C) “… otra posibilidad seria la resolucion con la que mandas la salida
(impresa) del documento …”
La resolución que mando la salida, tambien es por defecto, tal y como se
instala la aplicación sin realizar ningun tipo de cambio y la que indica la
impresora “virtual” CutePDF Witer

Detalles significativos, creo que no dejo ninguno en el tintero, al menos
que yo sepa …
aunque, inconscientemente debo de estar dejandome uno, porque si no esto
estaria funcionando perfectamente ;-)

Me reitero en las gracias por tu interes y por tu ayuda y ..
Saludos a

Hola a :
Tras mas pruebas, ofrezco mas detalles ...

Tal y como me ha indicado Hector en su Post, podria ser problema con la
Imagen de la cabecera, bueno la he eliminado, así como un control que también
tenia ...
quedando, pues, unicamente texto, numeros y bordes ... y sigue pasando lo
mismo
El archivo guardado se registra con 0KB en ambos casos (con y sin imagenes)
en cambio si realizo a mano todo el proceso de impresion, el archivo con
imagen es de 25KB y solo con texto 13KB (y puede abrirse perfectamente con
Acrobat Reader).
En cuanto al nombre de archivo se nutre de un nombre y apellido (p.ej,
Alberto Martinez.pdf) ...

Bueno, sigamos investigando ...

Saludos a

hola :-)

esto me funciona desde el libro activo,sin problemas :)

Sub Generar_PDF_CutePDF()
Dim ImpresoraAnterior As String
ImpresoraAnterior = "Epson FX-2170 en Ne00:"
With Application
ImpresoraAnterior = .ActivePrinter 'Almacenar la impresora
activa
.ActivePrinter = "CutePDF Writer en CPW2:"
ActiveSheet.PrintOut
.Wait (Now + TimeValue("00:00:01")) 'espero 1 seg para enviar
la pulsacion
.SendKeys "%G", Wait:=True '"~", Wait:=True 'funciona con los
2
If .ActivePrinter <> ImpresoraAnterior Then .ActivePrinter ImpresoraAnterior
End With
End Sub

salu2
Albymar (o debo decir ! Alberto! ),nos vemos en el 'otro' foro :-))