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

• #35368 Delila_1 veterán lappy #35365

  Új Válasz 2017-05-31 13:55:22 #35368

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

  Kicsit kevesebb Select utasítással

  Sub nyomtat()
b = Worksheets("névsor").Cells(1, 2) + 1
For a = 2 To b
Sheets("névsor").Cells(a, 2).Copy
Sheets("Sima").Range("C3").PasteSpecial xlValues
Application.CutCopyMode = False
Sheets("Sima").PrintOut Copies:=1, Collate:=True
Next a
MsgBox "A nyomtatás kész, ügyes vagy!!!"
Sheets("Sima").Range("C3").ClearContents
End Sub

  Lehet, hogy több lap együttes nyomtatásáról van szó.

  Sheets(Array("Munka1", "Munka2", "Munka3")).Select
SelectedSheets.PrintOut Copies:=1

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