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

• #31868 Declare őstag Plero #31865

  Új Válasz 2016-06-22 15:05:03 #31868

  Ú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

  

  Declare

  őstag

  válasz Plero #31865 üzenetére

  Ahogy Delila_1 is irta, en is igy oldottam meg hasonlo problemat, ami Neked van

  Makro rögzitese gombbal szepen meg lehet csinalni.

  Nekem van egy ilyen gomb ( nyomtato valasztas)

  Sub Nyomtato valasztas()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

  A nyomtatas gomb meg igy nez ki nalam (nyilvan a nyomtatasi terület, nalad mas lesz).

  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

End Sub

  Nezd meg a makro rögzitest, meg nezd meg ami nekem van, szerintem talalsz benne hasznos dolgokat a sajat problemadhoz is

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