Seria contar quantos produto1 e produto2 são diferentes de "" ?
Set Tb = Banco.OpenRecordset(sql, dbOpenDynaset)
Dim conta as long
Conta = 0
While Not Tb.EOF
Printer.Print Tab(3); Tb!Código;
Printer.Print Tab(10); Tb!Cliente;
Printer.Print Tab(30); Tb!paciente;
Printer.Print Tab(50); Tb!guia;
Printer.Print Tab(60); Tb!produto1;
Printer.Print Tab(80); Tb!produto2;
Printer.Print Tab(100); Tb!Total;
Printer.Print Tab(115); Tb!Andamento;
Printer.Print Tab(135); Tb!Data_Entr;
Printer.Print Tab(150); Tb!data_Saida;
if Tb!Produto1 <> "" then
conta = conta + 1
end if
if Tb!Produto2 <> "" then conta = conta + 1
end if
Tb.MoveNext
Wend
Printer.EndDoc