kod vba do druku i zapisu

[milus...@gmail.com]

Witam
jestem zielony wiec proszę o pomoc w napisaniu kodu vba:
chciałem żeby zapisał aktywny arkusz jako pdf z nazwą która jest w jednej komórce a potem wydrukował cały arkusz 2 razy

z góry dziękuje za odpowiedź

[Sheriff]

Cześć.
może tak:
Sub Zapisz_pdf_i_drukuj()
Dim strNazwaPliku As String

' Zakładam, że nazwa pliku z całą ścieżką jest zapisana w komórce A1 bieżącego arkusza
strNazwaPliku = Range("A1").Value

' Zapisz_pdf
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strNazwaPliku, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

' Wydruk 2 kopii na drukarce domyslnej:
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False

End Sub

Można to podpiąć np. pod przycisk.