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

• #5413 Cuci3 tag Geby #5412

  Új Válasz 2009-09-29 17:32:17 #5413

  Ú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

  

  Cuci3

  tag

  válasz Geby #5412 üzenetére

  Makró lesz rá a megoldás. Nyomtatás előtt egy adott mező értékét növeli meg eggyel a következő szubrutin:

  Private Sub Workbook_BeforePrint(Cancel As Boolean)
  
  ActiveWindow.SelectedSheets.PrintOut Copies:=1
  
  If ActiveSheet.Name = "Munka1" Then
  ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
  End If
  
  End Sub

  Ezt a VB szerkesztőben a "This Workbook" modulba kellene bemásolnod. A "Munka1" helyére annak a munkalapnak a nevét írd, amit nyomtatsz, az A3 helyére meg a szóban forgó cellát.

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