Hirdetés
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Azonnali VGA-s kérdések órája
- PC-k milliói kerülhetnek veszélybe idén
- AMD Navi Radeon™ RX 9xxx sorozat
- AMD FX
- Melyik tápegységet vegyem?
- Fejhallgató erősítő és DAC topik
- Kormányok / autós szimulátorok topikja
- Nem indul és mi a baja a gépemnek topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz
Reinhardt
#33628
üzenetére
Rögzíts egy sort, amiben csak egy nyomtatást hajtasz végre. Ez azért kell, mert a rögzítés tartalmazza, hogy melyik nyomtatóra küldöd az anyagot.
Másold be egy modulba a lenti makrót.
Sub Nyomtat()
Dim napig, nap As Integer
napig = Application.WorksheetFunction.EoMonth(Date, 0)
napig = Day(napig)
For nap = 1 To napig
ActiveSheet.PageSetup.CenterHeader = "Date: " & nap & "/" & Month(Date) & "/" & Year(Date)
'ide jön a rögzített nyomtatási sor
Next
End SubA megjegyzésbe írt 'ide jön... helyére másold be a rögzített sorodat. Mentsd el a füzetet makróbarátként.
A lapról töröld ki a sort, ami most a dátumot tartalmazza, mert ezt a makró az élőfejbe írja majd be.
A makró az aktuális hónap minden napjára elkészíti a nyomtatást, a fejlécben a napi dátummal.
Új hozzászólás Aktív témák
- Kerékpárosok, bringások ide!
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- EA Sports WRC '23
- LEGO klub
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- A Razer új klaviatúra-zászlóshajóját meglátva biztos félrenyeled a teát
- Filmvilág
- Azonnali VGA-s kérdések órája
- Hosszú premier előzetest kapott az Arknights: Endfield
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- FarCry 4 Kyrat Edition eladó
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Apple iPhone 11 128 GB Lila 1 év Garancia Beszámítás Házhozszállítás
- Bomba ár! HP EliteBook 855 G7 - Ryzen 5 4650U I 8GB I 128SSD I 15,6" FHD I Cam I W11 I Gari
- CÉGEK FIGYELEM!! iPhone 11 64GB Black -1 ÉV GARANCIA - 27% ÁFA-S SZÁMLA Kártyafüggetlen, 100% Akksi
- Akció! Felsőkategóriás Gamer PC! I9 14900K / RTX 5080 16GB / 32GB RAM / 2TB Nvme SSD
- iPhone 13 Pro 256GB Alpine Green-1 ÉV GARANCIA - Kártyafüggetlen, MS4588, 100% AKKSI
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
