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

• #43134 Richard őstag Fferi50 #43131

  Új Válasz 2020-02-25 09:19:35 #43134

  Ú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

  

  Richard

  őstag

  válasz Fferi50 #43131 üzenetére

  Szia!

  Köszönöm szépen! Így tényleg kinyomtat minden oldalt. Nekem valamiért a saját kódommal csak az elsőt nyomta ki

  Egy kicsit módosítottam a kódod, hogy én adhassam meg hova és milyen néven mentsen.
  Beteszem ide, hátha valakinek a későbbiekben szüksége lesz erre a verzióra.

  Sub nyomtatd()

Dim lap As Worksheet, nyomtatni As Variant, nyomtato As String
Dim mappavalaszto As Integer
Dim fajlnev As String

mappavalaszto = Application.FileDialog(msoFileDialogSaveAs).Show

If mappavalaszto <> 0 Then

fajlnev = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)

For Each lap In Worksheets
  If Left(lap.Name, 3) = "EE_" And lap.Visible = xlSheetVisible Then nyomtatni = nyomtatni & "," & lap.Name

Next
nyomtatni = Mid(nyomtatni, 2)
nyomtatni = Split(nyomtatni, ",")
Sheets(nyomtatni).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fajlnev, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End If

End Sub

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