Buenos día a todos.
Uso Office 2007
Estoy haciendo una hoja de cálculo para una fundación.
En el momento de hacer los listados e impresiones, aprovecho para que guarde una copia en PDF.
Para situaros:
En la hoja donde está el listado calcula el área de impresión en funcion de las líneas realmente escritas, máximo 200. (he puesto salto de página donde ha sido conveniente.
Hasta ahí correcto
Una vez impreso, quiero que me guarde una copia en PDF. La macro para exportar ya la tengo hecha pero no sé cómo hacer para que la sección a guardar en formato PDF coincida con la del área de impresión.
Os cuelgo la macro para se mas claro:
Sub Llistat_donatius()
'
' Llistat_donatius Macro
' Imprimir el llistat de donatius
'
'
Sheets("control").Select
Dim RutaArchivo As String
RutaArchivo = "C:\Documents and Settings\All Users\Escritorio\" + Cells(16, 8)
Sheets("llistat donatius").Select
Range(aquí tendria que ir el área seleccionada que tiene que coincidir con el área de impresión).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("llistat donatius").Select
ActiveWindow.SmallScroll Down:=-18
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("control").Select
Range("G16").Select
End Sub
