none
Impressão RRS feed

  • Pergunta

  • Boa tarde amigos

    Gostaria de um ajuda de vcs.

    Tenho 2 macros que gostaria de transformar um uma só.

    Sendo o seguinte:
    1º - quando estiver no horário das 20:00 as 23:00, imprime sem solicitar senha, ou seja, direto para impressora.
    2º - quando estiver fora do horário das 20:00 as 23:00 - solicitar senha do admin.
    Range("B10").Value = Range("B10").Value + 1
    3º - se digitar a senha correta imprimir e fazer a função acima. 
    4º - se cancelar não faça a função acima e não imprimir.

    Desde já agradeço a ajuda.

    Carlos H. Cordeiro

    Sub MNormal()
            
        Sheets("INGRESSOS").Select
        Range("B10").Value = Range("B10").Value + 1
        Range("A1:C14").Select
        ActiveWindow.LargeScroll Down:=-1
        'Application.ActivePrinter = "Masculino em Ne02:"
        Selection.PrintOut Copies:=1, Collate:=True
            LblNrMNormal.Caption = Worksheets("REL_INGRESSOS").Range("A8")
        Range("B1").Select
        ActiveWorkbook.Save
                                    BLOQ_HORARIO
    End Sub

    Sub BLOQ_HORARIO()
      If VBA.Hour(VBA.Now) < 20 Or VBA.Hour(VBA.Now) >= 23 Then
        If InputBox("Digite a senha de acesso.") <> "JANAINA" Then
            ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
            MsgBox "Acesso negado.", vbExclamation
            Exit Sub
        End If
      End If
    End Sub
    sábado, 24 de dezembro de 2016 12:34

Todas as Respostas

  • Postagem cruzada em: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23010&p=116245

    Ao postar sua pergunta em outro fórum, favor postar o link. Faz parte das boas práticas de convivência em fóruns.

    ---

    Experimente algo como:

    Sub Main()
        Select Case Hour(Now)
            Case 20 To 22
                Imprimir
            Case Else
                If InputBox("Qual a senha para impressão?") <> "suasenha" Then
                    MsgBox "Senha incorreta!", vbExclamation
                Else
                    Imprimir
                End If
        End Select
    End Sub
    
    Sub Imprimir()
        Sheets("INGRESSOS").Activate
        Range("B10").Value = Range("B10").Value + 1
        Range("A1:C14").Select
        'Application.ActivePrinter = "Masculino em Ne02:"
        Selection.PrintOut Copies:=1, _
                           Collate:=True
        LblNrMNormal.Caption = Worksheets("REL_INGRESSOS").Range("A8")
        Range("B1").Select
    End Sub
    


    http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG

    sábado, 24 de dezembro de 2016 19:59
    Moderador