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

• #9530 Delila_1 veterán lappy #9529

  Új Válasz 2011-02-22 15:44:40 #9530

  Ú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 lappy #9529 üzenetére

  Akkor minek átmásolni a Sima lapra? A névsor lapról is kinyomtathatod egyenként.
  Ez megmagyarázza, miért tetted a print utasítást a ciklusba.

  Sub nyomtat()
  Sheets("névsor").Select
  b = Cells(2, 1) + 1
  For a = 2 To b
  Range(Cells(a, 1), Cells(a, 2)).Select
  ActiveSheet.PageSetup.PrintArea = Selection.Address
  ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Next a
  Sheets("Sima").Select
  MsgBox "A nyomtatás kész, ügyes vagy!!!"
  Range("A2").Select
  End Sub

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