Reakce na odpověď

niečo takéto?

Sub tlačítko1_Klepnutí()
Dim newFile As String, fName As String
Range("G1").Select
    ActiveCell.FormulaR1C1 = Range("G1").Value + 1
Range("A12").Select


   Application.ActivePrinter = "pdfFactory Pro na FPP3:"
   ExecuteExcel4Macro "PRINT(1,,,3,,,,,,,,2,""pdfFactory Pro na FPP3:"",,,,FALSE)"

ActiveWorkbook.Save
fName = "D:\záloha\" & Range("G1").Value
newFile = fName
ActiveWorkbook.SaveAs Filename:=newFile
End Sub

Excel - makro: ukládání kopie souboru