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

• #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