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

• #32137 Mittu88 senior tag Delila_1 #32136

  Új Válasz 2016-07-21 16:00:46 #32137

  Ú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

  

  Mittu88

  senior tag

  válasz Delila_1 #32136 üzenetére

  Ez így nem csinálja meg az oldaltörést:

  ActiveWindow.View = xlPageBreakPreview
  Application.PrintCommunication = False
  Thisworkbook.Worksheets("GépbeállítóTÉR").Activate
  ActiveWorkbook.Sheets("GépbeállítóTÉR").HPageBreaks.Add Before:=Range("A55") 'Nincs látszata
  Set ActiveWorkbook.Sheets("GépbeállítóTÉR").HPageBreaks(1).Location = Range("A55") 'Subscrypt out of range hiba

  Immediate ablakban a ?ActiveWorkbook.Sheets("GépbeállítóTÉR").HPageBreaks.Count eredménye 0 az Add parancs lefutása után is!

  Fferi50: nem hiszem, hogy parancsot írtam el, csak trehány módon írtam le. Bocs

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