Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    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

  • #31869 Plero aktív tag Declare #31868
    Új Válasz #31869
    Ú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

    Plero

    aktív tag

    válasz Declare #31868 üzenetére

    Megcsináltam a "Nyomtatás" gombot hozzárendeltem ezeket:

    Sub Nyomtatas()
    ActiveWorkbook.RefreshAll 'Frissiti az excel munkafüzetet /kihagyhato/
    With ActiveSheet.PageSetup '/lap elrendezes/
    .Orientation = xlLandscape
    .CenterHorizontally = True
    .CenterVertically = False
    .PaperSize = xlPaperA4
    End With
    With ActiveSheet.PageSetup '/ egy lapra illeszti a nyomtatast + a lablecbe beteszi a lapszamot
    .FitToPagesWide = 1
    .RightFooter = "Seite &P/&N"
    End With
    Application.Dialogs(xlDialogPrinterSetup).Show '/nyomtato beallitas ablak
    ActiveSheet.PageSetup.PrintArea = "$AU$1:$BI$22" '/nyomtatasi terület
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True, _
    IgnorePrintAreas:=False
    Range("K3") = Range("K3") + 1
    End Sub

    de nem csinál semmit és hibaüzenet sincs. :(
    A K3 cellában sem növekszik a szám.

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