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

• #29776 Delila_1 veterán Szicskeee #29773

  Új Válasz 2015-12-09 11:27:14 #29776

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

  Private Sub CommandButton14_Click()
  Dim iRet As Integer
  Dim strPrompt As String
  Dim strTitle As String
  strPrompt = "Ki szeretnéd nyomtatni xyz prémium adatlapját??"
  
  strTitle = "Prémium"
  
  iRet = MsgBox(strPrompt, vbYesNo, strTitle)
  
  If iRet = vbNo Then
  MsgBox "Vége!"
  Else
  Worksheets("Prem1").Range("$A$1:$O$39").PrintOut Copies:=1, Collate:=True
  End If
  End Sub

  Szerk: elkéstem.

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