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

• #52740 föccer nagyúr

  Új Válasz 2024-05-30 12:14:11 #52740

  Ú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

  Sziasztok!

  A lenti kóddal megjelenítek egy rejtett munkalapot, majd kérem a nyomtatási képet, hogy lehessen direkt nyomtatni.

  Milyen néven találom meg azt a metódust, ami akkor fut le, ha a nyomtatási képet bezáródik (tehát ha a nyomatást vagy ha a bezárást választom, ígyis-úgy is szertném elrejteni az NyWs-t.

  Köszönöm

  Sub Nyomtat()
  Dim NyWs As String

  Sheets("Seged").Range("B1:D1").Calculate

NyWs = Sheets("Seged").Range("D1").Value

  Sheets(NyWs).Visible = xlSheetVisible
  Sheets(NyWs).PrintPreview False
  
  
End Sub

  

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