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

• #29274 m.zmrzlina senior tag Reinhardt #29271

  Új Válasz 2015-10-30 13:52:53 #29274

  Ú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

  

  m.zmrzlina

  senior tag

  válasz Reinhardt #29271 üzenetére

  Ez is valami hasonló, csak ez nem nyomtat, hanem létrehozza a munkalapot amit neked kell kinyomtatni.

  Sub letrehoz()
  k = 1
  For i = 1 To 50
  Sheets("Munka1").Copy after:=Sheets(Sheets.Count)
  Sheets(Sheets.Count).Name = i
  For j = 4 To 22 Step 2
  Sheets(Sheets.Count).Range("G" & j).Value = k
  k = k + 1
  Next
  Next
  End Sub

• #29273 Delila_1 veterán Reinhardt #29271

  Új Válasz 2015-10-30 13:40:39 #29273

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

  Állítsd be a nyomtatási képen a fekvő lapot, és a margókat. Indíthatod a nyomtatást.

  Sub Nyomtat()
  Dim lap As Long, sor As Integer, valtozo As Integer
  
  valtozo = 1
  For lap = 1 To 50
  For sor = 4 To 22 Step 2
  Cells(sor, "G") = valtozo
  valtozo = valtozo + 1
  Next
  Range("A1:K23").Select
  Selection.PrintOut Copies:=1
  Next
  End Sub

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