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

• #14855 Delila_1 veterán Traxx #14853

  Új Válasz 2012-09-07 08:34:07 #14855

  Ú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

  

  Delila_1

  veterán

  válasz Traxx #14853 üzenetére

  Makróval megoldható.

  Sub Nyomtat()
  Dim lap%
  
  For lap% = 1 To Worksheets.Count
  Sheets(lap%).Select
  ActiveSheet.PageSetup.PrintArea = "$A$1:$H$35"
  ActiveSheet.PageSetup.Orientation = xlPortrait
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  
  ActiveSheet.PageSetup.PrintArea = "$A$36:$M$62"
  ActiveSheet.PageSetup.Orientation = xlLandscape
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Next
  End Sub

  A két helyen az ActiveSheet.PageSetup.PrintArea = kezdetű sorokban a saját nyomtatandó területeidet add meg.

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