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

• #31872 Plero aktív tag Delila_1 #31870

  Új Válasz 2016-06-22 16:05:14 #31872

  Ú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 Delila_1 #31870 üzenetére

  Mégis csak működik

  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
Application.Dialogs(xlDialogPrinterSetup).Show '/nyomtato beallitas ablak
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$54" '/nyomtatasi terület
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, Preview:=True, _
IgnorePrintAreas:=False
Range("K3") = Range("K3") + 1
End Sub

  Annyi szépséghibával, hogy nekem fekvő A4 papírt hoz és álló kellene.

  Ezt kellene "Orientation = xlLandscape" módosítani ""Orientation = xlPortrait" ?

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