werkblad als PDF opslaan

[ewh]

wie kan even helpen, kom er niet uit
we willen een werkblad ( alleen het deel A1:H55) als PDF opslaan in de map c:/weeklijsten
de bestandsnaam moet de waarde zijn in cel C2 & C1

 

[HSV]

Probeer het maar eens uit.

Sub hsv()
With Sheets("blad1")
 .Range("a1:h55").ExportAsFixedFormat 0, "c:\weeklijsten\" & .Range("c2") & .Range("c1") & ".pdf" ', , , , , , -1
End With
End Sub

 

[ewh]

HSV

ik was helemaal blij met je snelle antwoordt , maar helaas ik krijg een foutcode ( eigenschap of methode wordt niet ondersteund ....)

op deze regel .Range("A1:H55").ExportAsFixedFormat 0, "C:\weeklijsten" & .Range("c2") & .Range("c1") & ".pdf" ', , , , , , -1

wel heb ik de naam verandert van het tab blad ( "Blad1") in de naam van het tab blad

is het ook mogelijk dat het huidigeblad ( ipv een tab bald te benoemen ) anders moet ik de code 20 keer plaatsen

 

[HSV]

Werk je met Excel ouder dan 2007?

 

[ewh]

dat klopt ik werk nog met 2003 ☺

 

[HSV]

Dan werkt het helaas niet, en moet je op zoek naar een pdf-printer code.
Helaas ga ik die niet meer maken daar er veel dingen fout gaan en dit misschien wel eens een ellenlang draadje kan worden.

Zoek er maar eens op.

 

[ewh]

HSV nog een vraagje
is het dan mogelijk om A1:H55 te selecteren en dan het huidige werkblad als een excelsheet te saven in de dir c:\weeklijsten
zonder dat de VBA code mee gekopieert wordt?

 

[HSV]

bv.

Sub hsv()
Dim snw As Long
With Application
      .ScreenUpdating = False
      .DisplayAlerts = False
snw = .SheetsInNewWorkbook
      .SheetsInNewWorkbook = 1
Workbooks.Add
    With ActiveWorkbook
      ThisWorkbook.ActiveSheet.Range("a1:h55").Copy .Sheets(1).Range("a1")
      .SaveAs "[COLOR=#3E3E3E]c:\weeklijsten[/COLOR]\" & Format(Now, "dd-mm-yy h_mm_ss"), 51
    End With
       .SheetsInNewWorkbook = snw
       .DisplayAlerts = True
  End With
End Sub

 

[ewh]

Bedankt