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

• #5417 Cuci3 tag Cuci3 #5416

  Új Válasz 2009-09-30 12:07:32 #5417

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

  Kicsit másabb progi, de lényegében ugyanaz. Sajnos a Nyomtatás menü Mégse gombja valahogy nincs nevesítve, VBA rögzítő sem érzékeli, neten sem találtam meg. Ezért nyomtatás előtt felugrik egy aranyos kis kérdés, hogy tényleg ki akarod-e nyomtatni. Egy idő után idegesítő lehet, dehát ez is csak egy félmegoldás (a kérdésem után még simán kattinthat az ember a mégsére a nyomtatási ablakban).

  Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim kerdes As Integer
  
  kerdes = MsgBox("Valóban ki akarod nyomtatni?", vbQuestion + vbYesNo)
  If kerdes = 6 Then
  If ActiveSheet.Name = "Munka1" Then
  ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
  End If
  ElseIf kerdes = 7 Then
  Cancel = True
  End If
  
  End Sub

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