Postada em 17/07/2008 00:06 hs
Olá,
Eu não entendo nada de VB, montei esse código olhando um tutorial que peguei na net. Dai estou montando este código para um planilha que utilizo no meu serviço, que me mostra quais boletins não chegaram para mim.
Este código abaixo é somente o código de uma filial, mas é o suficiente para me ajudarem. Se verificarem no final do código, tem uma MsgBox, nela me mostra o resultado dos boletins que faltam.
O que estou querendo é imprimir este resultado ao invés de exibir em uma MsgBox, já vi vários coisas relacionadas a Print, mas não acerto nada, não sei o que é preciso fazer para imprimir, por isso pesso a ajuda de qualquer um que possa me ajudar a imprimir isso.
MsgBox "Boletim(s) que Faltam:" & Chr(13) & _
Chr(13) & filialAL & " - " & faltaAL
Sub Boletins()
Dim coluna As Integer
Dim nVeioAL, faltaAL, filialAL As String
coluna = 3
faltaAL = ""
filialAL = Cells(8, 1)
While (coluna < Cells(7, 2))
If (Cells(8, coluna) + Cells(9, coluna)) = 0 Then
nVeioAL = ""
ElseIf (Cells(8, coluna) + Cells(9, coluna)) = Cells(8, coluna) Then
nVeioAL = Cells(8, coluna) & " "
ElseIf (Cells(8, coluna) + Cells(9, coluna)) <> Cells(8, coluna) Then
nVeioAL = ""
End If
faltaAL = faltaAL + nVeioAL
coluna = coluna + 1
Wend
MsgBox "Boletim(s) que Faltam:" & Chr(13) & _
Chr(13) & filialAL & " - " & faltaAL
End Sub
|
