- Luck Dragon: Asszociációs játék. :)
- Geri Bátyó: Agglegénykonyha 13 – Néhány egyszerű, de finom étel
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- potyautas: Norvég nyár
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- aquark: RETRO: Idén lesz 30 éves az első full 3D-s játék!
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- MasterDeeJay: Legújabb retró beszerzésem - 3Dfx Voodoo4 4500 32Mb
-
LOGOUT
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
-
Fferi50
Topikgazda
válasz
Morphy
#44241
üzenetére
Szia!
A PrintArea szöveges változót vár, azaz a nyomtatási terület címét. Tehát a változód neve, mondjuk nyomtter, akkornyomtter="$A$1:$B$", illetve ha egy cellába teszed (ez legyen az X1), akkor a cella értéke legyen$A$1:$B$2.
EzutánWorksheets("final").PageSetup.PrintArea=Worksheets("info").Range("X1").Value
vagy:Worksheets("final").PageSetup.PrintArea=nyomtter
Persze a nyomtter változód a feltételnek megfelelően kell beállítanod.
Ebben az esetben nem kell külön cellába kiírni a címet.
Üdv.
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Építő/felújító topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Geri Bátyó: Agglegénykonyha 13 – Néhány egyszerű, de finom étel
- Motoros topic
- Battlefield 6
- One otthoni szolgáltatások (TV, internet, telefon)
- A fociról könnyedén, egy baráti társaságban
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Nézegesd az S26 család renderképeit!
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- MS SQL Server 2016, 2017, 2019
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó PC dobozos játékok, Collector's is
- GYÖNYÖRŰ iPhone 11 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS4355
- Értékcsökkentett gamer alaplapok /ASUS/MSI/AM5/Számlával/
- 3DKRAFT.HU - 3D NYOMTATÁS - AZONNALI ÁRAJÁNLAT - GYORS KIVITELEZÉS - 505+ POZITÍV ÉRTÉKELÉS
- Telefon felvásárlás!! Xiaomi Redmi Note 12, Xiaomi Redmi Note 12 Pro, Xiaomi Redmi Note 12 Pro+
- -65% Off Dobozos Új HP EliteBook 860 G10 i5-1355U 16 GB DDR5 1 TB SSD FHD+ több mint 2 év gari!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Fferi50
