Új hozzászólás Aktív témák

• #31161 Nowitzki csendes tag Declare #31160

  Új Válasz 2016-03-29 12:15:39 #31161

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Nowitzki

  csendes tag

  válasz Declare #31160 üzenetére

  Szia,

  Próbáld meg ezt:
  Sub ActiveSheetExportToPdf()
  ActiveSheet.ExportAsFixedFormat _
  Type:=xlTypePDF, _
  Filename:=ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & "_Laserteileliste" & ".pdf", _
  Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, _
  IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End Sub

Új hozzászólás Aktív témák