............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

EXCEL A PDF no mantiene el formato

Ver el tema anterior Ver el tema siguiente Ir abajo

EXCEL A PDF no mantiene el formato

Mensaje por miguelpo el Vie Feb 05, 2010 7:22 pm

Estimados señores:
Aprovecho en saludarles y paso a comentarle mi caso:
Estoy creando archivos en formato Pdf desde excel con el siguiente codigo:

Sheets("AGREGAR_PEDIDO").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"Y:\Reporte\Miguel \" & ActiveSheet.Range("F1") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

El problema que tengo es q no mantiene el formato de excel (tipo de letra, margen, etc) puedo corregir este problema .... sin mas me despido no sin antes agradecerles su espcial cpnsideracion .
Atte...
Miguel
avatar
miguelpo

Masculino Cantidad de envíos : 49
Edad : 37
Ciudad - Pais : Peru, Lima
Version de Excel : 2000
Fecha de inscripción : 07/07/2008

Volver arriba Ir abajo

Re: EXCEL A PDF no mantiene el formato

Mensaje por Tatayayan el Vie Mar 12, 2010 12:37 pm

Hola, hace un tiempo baje un programita que se instala como una impresora mas, ahora lo que doy es una opinion, buscar una instrucción que envie una impresion y seleccione la impresora pdf.
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: EXCEL A PDF no mantiene el formato

Mensaje por Jose Susilla el Sáb Abr 16, 2016 12:55 pm

ESTO ESCON LO QUE YO TRABAJO Y FUNCIONA MUY BIEN
private sub pasarapdf()
If Range("A1") = "V1" Then
Sheets("V1").Select

'nombreLibro = Range("c5") & " - " & Range("A5").Value
datofechador = Format(Date, "dd-mm-yyyy")
ruta = "C:\Datos\"
'ruta = "D:\JAVIER\SISTEMA-TURNOS\"
nombrelibro = Range("A1") & " " & datofechador
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ruta & nombrelibro & ".pdf", Quality:=xlQualityStandar, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Sheets("V1").Select
End If
en sub
avatar
Jose Susilla

Masculino Cantidad de envíos : 1
Edad : 54
Ciudad - Pais : BURGOS
Version de Excel : 2003-207
Fecha de inscripción : 16/04/2016

Volver arriba Ir abajo

Re: EXCEL A PDF no mantiene el formato

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.