Acessar o Zé Moleza
ou
O que você está pesquisando?
JWA ? Sistema de Controle de Ordens de Serviços
1879 visualizações
19608 palavras
Adicionar aos favoritos
Loading...- | |
Else 'abre arq. texto
sArq = "c:msgErro.txt"
iFile = FreeFile
Open sArq For Output As #iFile
End If
sTxt = String(80, "*")
PrintOn bPrint, Me.Caption
PrintOn bPrint, sTxt
sTxt = Space(50) & "Data: " & Format$(Now(), "dd/mm/yyyy hh:mm:ss")
PrintOn bPrint, sTxt
PrintOn bPrint, "Mensagem ao usuário:"
PrintOn bPrint, txtMsgErro
PrintOn bPrint, ""
sTxt = String(80, "-")
PrintOn bPrint, sTxt
PrintOn bPrint, "Descrição técnica do erro:"
PrintOn bPrint, txtErroTec
PrintOn bPrint, ""
sTxt = String(80, "-")
PrintOn bPrint, sTxt
PrintOn bPrint, "Procedimento: " & txtProc
PrintOn bPrint, ""
PrintOn bPrint, "Módulo: " & txtMod
PrintOn bPrint, ""
PrintOn bPrint, "Origem: " & txtOrig
PrintOn bPrint, ""
sTxt = String(80, "*")
PrintOn bPrint, sTxt
'finaliza impressão
If bPrint Then
Printer.EndDoc 'finaliza impressão
Else
Close #iFile 'fecha arq texto
End If
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
Dim msg As String
On Error Resume Next
If Printers.Count = 0 Then
msg = "Não é possível imprimir esta mensagem de…
sArq = "c:msgErro.txt"
iFile = FreeFile
Open sArq For Output As #iFile
End If
sTxt = String(80, "*")
PrintOn bPrint, Me.Caption
PrintOn bPrint, sTxt
sTxt = Space(50) & "Data: " & Format$(Now(), "dd/mm/yyyy hh:mm:ss")
PrintOn bPrint, sTxt
PrintOn bPrint, "Mensagem ao usuário:"
PrintOn bPrint, txtMsgErro
PrintOn bPrint, ""
sTxt = String(80, "-")
PrintOn bPrint, sTxt
PrintOn bPrint, "Descrição técnica do erro:"
PrintOn bPrint, txtErroTec
PrintOn bPrint, ""
sTxt = String(80, "-")
PrintOn bPrint, sTxt
PrintOn bPrint, "Procedimento: " & txtProc
PrintOn bPrint, ""
PrintOn bPrint, "Módulo: " & txtMod
PrintOn bPrint, ""
PrintOn bPrint, "Origem: " & txtOrig
PrintOn bPrint, ""
sTxt = String(80, "*")
PrintOn bPrint, sTxt
'finaliza impressão
If bPrint Then
Printer.EndDoc 'finaliza impressão
Else
Close #iFile 'fecha arq texto
End If
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
Dim msg As String
On Error Resume Next
If Printers.Count = 0 Then
msg = "Não é possível imprimir esta mensagem de…
É esse o conteúdo que você precisa?
Faça seu login e saiba como ver o trabalho completo
Institucional
Saiba como fazer
Trabalhos Acadêmicos
O Zé Moleza facilita sua vida acadêmica ajudando você em suas pesquisas, e a economizar o seu tempo e o seu dinheiro nos seus trabalhos de faculdade. São mais de 26144 pesquisa acadêmicas entre elas, monografia, temas de monografias, TCC, modelos de monografias, trabalhos de universidades, resenha, Paper, Ensaio, Bibliografia, Trabalhos Escolares.
Dicas de como fazer: Capa de Monografia, capa de TCC, Regras da ABNT, como fazer monografia, como fazer Projeto Final, como fazer seminário, como fazer capas, referências bibliográficas, modelo de monografia.
O Zé Moleza NÃO faz a venda de monografia e É TOTALMENTE CONTRA a compra de monografia pronta e trabalhos prontos. O Zé Moleza NÃO auxilia a quem compra monografia, NÃO apóia a quem quer comprar Trabalhos Prontos, e NÃO APROVA a quem quer comprar TCC prontos, dando dicas de formatação, regras da ABNT, dando sugestões de temas para monografia, resumo de livros, projeto de pesquisa, projeto de mestrado, projeto de pós-graduação, trabalhos acadêmicos, incentivando o usuário a desenvolver por conta própria sua monografia.
