DUVIDAS COM O PRINTER

USUARIO.EXCLUIDOS 31/12/2004 14:44:18
#57944
[txt-color=#000000]Olá.

Primeira dúvida:

na rotina do printer:

Printer.print "Total a Pagar: "; Tab(20); Format(TotalPagar, "Currency")
Printer.print "Total a Receber: "; Tab(20); Format(TotalReceber, "Currency")

O resultado é este (ex:)

Total a Pagar: R$ 500,00
Total a Receber: R$ 1000,00

mas quando digito esta rotina:

Printer.print "Saldo: "; Tab(20); Format(TotalPagar, "Currency") - Format(TotalReceber, "Currency")

o resultado aparece sem o cifrão (R$) e sem as casas depois da vírgula, ex:

500.

Como faço para que apareça dessa forma R$ 500,00?

Segunda dúvida:

Como faço para que nesta rotina:

Printer.print "Nome: "; Tab(15); DadosClientes.Recordset.Fields("Nome")

não imprima a palavra null quando um campo estiver vazio?

Muito obrigado desde já e [/txt-color]feliz ano novo a todos
LCSD 31/12/2004 15:14:41
#57946 Resposta escolhida
Urcioli

As 2 dúvidas estão respondidas na mesma rotina

Dim TotalPagar As Currency, TotalReceber As Currency
Dim Saldo As Currency, sSTring As String
Dim sNomeCom As String, sNomeNull

TotalPagar = 200
TotalReceber = 1000
Saldo = TotalReceber - TotalPagar
Picture1.Print "Saldo: "; Tab(20); Format(Saldo, "R$ ##,###,##0.00")

sNomeCom = "Campo com Valor"
sNomeNull = Null

sSTring = IIf(IsNull(sNomeCom), "", sNomeCom)
Picture1.Print "Nome: "; Tab(15); sSTring

sSTring = IIf(IsNull(sNomeNull), "", sNomeNull)
Picture1.Print "Nome: "; Tab(15); sSTring


Tanto o Objeto Printer como o Picture suportam impressão então é bom testar antes na Picture. Poupa bastante papel!
[s95]
Tópico encerrado , respostas não são mais permitidas
Voltar