Hola
Tengo una hoja excel en la que llevo la cuenta de los resultados de la quiniela en la oficina, además de llevar el control de las apuestas, imprimir los boletos, etc.
Una de las cosas que hago es dibujar unas gráficas que dan una idea de la evolución de los resultados.
Antes hacía una impresión seleccionando la impresora "Adobe PDF", que era algo que había sacado del grabador de macros. Al final me salía una cosa como printer = "Adobe PDF in Ne01:" o algo parecido.
Me actualizaron el sistema, y ahora tengo W7, y parece que debieron actualizar en Microsoft la manera de llamar a las impresoras.
He cambiado el sistema por este código:
nombre = ThisWorkbook.Name
nombre = Left(nombre, Len(nombre) - 5)
ActiveSheet.PageSetup.PrintArea = "B3:" & Range("B24").Value
For i = 1 To ActiveSheet.VPageBreaks.Count
ActiveSheet.VPageBreaks(i).Delete
Next i
For i = 1 To ActiveSheet.HPageBreaks.Count
ActiveSheet.HPageBreaks(i).Delete
Next i
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
nombre & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
parece que referirte al gráfico con Selection no le sienta muy bien.
Prueba con
ActiveChart.ExportAsFixedFormat ...
------
Ya sé Excel, pero necesito más.
Muchísimas gracias. Funcionó perfectamente.