Como posso imprimir várias planilhas em horários específicos?

Question

Eu tenho uma pasta de trabalho do Excel que possui várias planilhas. Existe uma maneira de imprimir automaticamente uma folha às 8:00 da manhã, outra folha é impressa automaticamente às 10:00 da manhã, outra folha é impressa automaticamente às 12:00 e assim por diante?

Ainda estou usando o Office 2003

    

Answer 1

Primeiro de tudo; Bem-vindo ao superusuário .

Se você estiver familiarizado com Macros / VBA no Excel, poderá usar o seguinte código para começar. Desculpe, isso funciona para mim, mas eu não tenho o Excel 2003 para testá-lo antes de dar a você. Isso significa que não posso garantir que funcionará para você sem algum trabalho adicional.

Copie e cole isso em um módulo VBA. Você precisará alterar os nomes das planilhas para serem os nomes das suas guias.

Private Sub Workbook_Open()
Run "timer"
End Sub

Sub timer()
Application.OnTime TimeValue("08:00:00"), "Print_1"
Application.OnTime TimeValue("10:00:00"), "Print_2"
Application.OnTime TimeValue("12:00:00"), "Print_3"
End Sub

Sub Print_1()
' Prints the sheet for 8am
    Sheets("sheet1").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Sub Print_2()
' Prints the sheet for 10am
    Sheets("sheet2").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Sub Print_3()
' Prints the sheet for 12pm
    Sheets("sheet3").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Espero que isso ajude você.

Observação: o sistema usa um relógio de 24 horas. Então, para usar os tempos após o meio dia, adicione 12 a ele. Por exemplo, 15:00 é 15:00:00.