- Samsung Galaxy A54 - türelemjáték
- Samsung Galaxy S26 Ultra - fontossági sorrend
- Milyen okostelefont vegyek?
- Xiaomi 17 Ultra - jó az optikája
- iPhone topik
- Google Pixel topik
- Youtube Android alkalmazás alternatívák reklámszűréssel / videók letöltése
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Xiaomi 15 - kicsi telefon nagy energiával
- Apple Watch Sport - ez is csak egy okosóra
-
Mobilarena
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
- Éjszakai műszak
- HiFi műszaki szemmel - sztereó hangrendszerek
- Kertészet, mezőgazdaság topik
- Amlogic S905, S912 processzoros készülékek
- Gitáros topic
- Samsung Galaxy A54 - türelemjáték
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- NBA és kosárlabda topic
- Robogó, kismotor
- Formula-1
- További aktív témák...
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- PC Game Pass előfizetés
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MS SQL Server 2016, 2017, 2019
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- 27% GIGABYTE Z790 AORUS ELITE AX Alaplap bontatlan új !
- BESZÁMÍTÁS! Akár részletfizetés 0% THM ÚJ Intel LGA 1700 processzorok 3 év garanciával 27% áfaval
- Asus STRIX Gaming PC! 7800X3D / RoG RTX 5070 TI / 32GB 7600MHz / SSD 1TB / 850w Gold! BeszámítOK!
- Bomba ár! Lenovo ThinkPad L380 i3-8G I 8GB I 128SSD I 13,3" FHD I Cam I W11 I Garancia!
- ALIENWARE Area-51 R6 Threadripper Edition 1920X
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50
