ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="path" & Firma & "\Offers\" & "OBR1_" & broj & "_" & Firma & "_" & Format(Now(), "dd.mm.yyyy") & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
path is juts your regular...