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

• #52070 föccer nagyúr Fferi50 #43131

  Új Válasz 2024-01-19 10:16:02 #52070

  Ú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

  

  föccer

  nagyúr

  válasz Fferi50 #43131 üzenetére

  Hello!

  Az Application.ActivePrinter változó az jól sejtem, hogy az alapértelemzett nyomtató nevét adja vissza?

  Ez így ebben a formában be tudom állítani a nyomtató válltozómba az aktív printert?

      Dim Nyomatato As String
.
.
.
  Nyomtato = Application.ActivePrinter
.
.
.
 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False, ActivePrinter:=Nyomtato, PrintToFile:=True, PrToFileName:=Fajl_neve

  köszi!

  üdv, föccer

• #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