bom dia pessoal
to com uma duvida num relatorio onde faco o calculo do meu saldo
o calculo esta ok, tudo certinho ate vou colocar a rotina abaixo, porem faco esta rotina na "secao detalhe - ao imprimir" do relatorio, porem o que acontece:
primeiro eu gero ele como visualizacao na tela, caso o usuario nao queira imprmir ve so na tela, esta perfeito, mas se o usuario imprimi ele praticamente dobra o contador e dobra o saldo.
acredito que seja pela questao de esta na secao detalhe ao imprimir ele quando manda imprimir acho se perde.
- estou disponibilizando o arquivo e uma imagem da "visualizacao e da impressao no papel"
segue a rotina da "secao detalhe - ao imprimir"
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
i = i + 1
txtmovimento = i
If i = 1 Then
If tabela = 1 Then
Texto25 = "entr"
saldo_dia = Nz(EST_INIC, 0) + Nz(QTDE, 0)
Else
Texto25 = "saida"
saldo_dia = Nz(EST_INIC, 0) - Nz(QTDE, 0)
End If
Else
If tabela = 1 Then
Texto25 = "entr"
saldo_dia = Nz(saldo_dia, 0) + Nz(QTDE, 0)
Else
Texto25 = "saida"
saldo_dia = Nz(saldo_dia, 0) - Nz(QTDE, 0)
End If
End If
End Sub
obrigado a todos
to com uma duvida num relatorio onde faco o calculo do meu saldo
o calculo esta ok, tudo certinho ate vou colocar a rotina abaixo, porem faco esta rotina na "secao detalhe - ao imprimir" do relatorio, porem o que acontece:
primeiro eu gero ele como visualizacao na tela, caso o usuario nao queira imprmir ve so na tela, esta perfeito, mas se o usuario imprimi ele praticamente dobra o contador e dobra o saldo.
acredito que seja pela questao de esta na secao detalhe ao imprimir ele quando manda imprimir acho se perde.
- estou disponibilizando o arquivo e uma imagem da "visualizacao e da impressao no papel"
segue a rotina da "secao detalhe - ao imprimir"
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
i = i + 1
txtmovimento = i
If i = 1 Then
If tabela = 1 Then
Texto25 = "entr"
saldo_dia = Nz(EST_INIC, 0) + Nz(QTDE, 0)
Else
Texto25 = "saida"
saldo_dia = Nz(EST_INIC, 0) - Nz(QTDE, 0)
End If
Else
If tabela = 1 Then
Texto25 = "entr"
saldo_dia = Nz(saldo_dia, 0) + Nz(QTDE, 0)
Else
Texto25 = "saida"
saldo_dia = Nz(saldo_dia, 0) - Nz(QTDE, 0)
End If
End If
End Sub
obrigado a todos
- Anexos
- estoque.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (972 Kb) Baixado 4 vez(es)