Velbekomme.
Hvorfor ikke give point, til den, der kom med løsningen?
Prøv også denne.
Marker det sidste Ark, kør makro:
Sub pdf_Ark2_Til_AktiveArk()
Dim w As Integer
Sidste = ActiveSheet.Index
ActiveWorkbook.Worksheets(2).Select
For w = 2 To Sidste
Worksheets(w).Select False
Next w
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\kniel\Skrivebord\august.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Eller:
Sub pdf_Ark2_Til_Ark50()
Dim w As Integer
ActiveWorkbook.Worksheets(2).Select
For w = 2 To 50
Worksheets(w).Select False
Next w
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\kniel\Skrivebord\august.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub