OBJETO PRINT

JPAULO101 08/06/2010 07:23:38
#344212
Olá amigo LIZANDER, não está tendo rum-time não o Printer.Print Tab(3); Format(rs([Ô]Codigo[Ô]), [Ô]00#[Ô]); e para imprimir com formato de sequencia de registro.

Exemplo:
001
002
003
etc..

agradeço sua ajuda.
MARCELO.TREZE 08/06/2010 09:51:55
#344229
Não tenho certeza, mas tente a modificação abaixo sugerida.

Printer.Print Tab(3); String(240, [Ô]-[Ô])
Printer.Print Tab(3); Format(rs!p.Codigo, [Ô]00#[Ô]);
Printer.Print Tab(15); rs!p.SML;
Printer.Print Tab(35); rs!p.ESCRITORIO[Ô];
Printer.Print Tab(55); rs!p.APARELHO;
Printer.Print Tab(70); rs!p.SN;
Printer.Print Tab(90); rs!p.IMEI;
Printer.Print Tab(112); rs!p.CHIPTIMNOVO;
Printer.Print Tab(133); rs!p.RESPONSAVEL;
Printer.Print Tab(153); rs!p.MANUTENCAO;
Printer.Print Tab(172); rs!p.REPARO;
Printer.Print Tab(180); rs!a.TipoAcess;
Printer.Print Tab(190); rs!a.Data;
Printer.Print Tab(210); rs!a.Num;
JPAULO101 08/06/2010 10:50:00
#344242
Grande Marcelo, blz. alterei o código conforme exemplo postado, mais ainda não está jogando os dados para impressora. Só imprimi quando seleciono apenas uma tabela.

rs.Open [Ô]SELECT * FROM tblpocket ORDER BY codigo[Ô], con, adOpenKeyset, adLockOptimistic

Mais quando altero para

rs.Open [Ô]SELECT p.*, a.* [Ô] & _
[Ô]FROM (TblPocket p [Ô] & _
[Ô]INNER JOIN TblAcessorio a [Ô] & _
[Ô]ON p.Codigo = a.CodAcess) [Ô] & _
[Ô]WHERE p.Codigo=1[Ô], con, 1, 3

Não acontece nada.
MSMJUDAS 08/06/2010 11:35:06
#344254 Resposta escolhida
JPAULO101

Não está acontecendo NADA porque NÃO EXISTE nenhum registro na tabela TBLAESSORIO com código 1. Eu coloquei aqui e funcionou

Coloque no WHERE p.Codigo=2

DEVE aparecer.
JPAULO101 08/06/2010 14:09:06
#344266
Olá MSMJUDAS realmente imprimir, mais fica imprimindo somente apenas o registro 2, cadastrei outros acessórios no registro 1 mais não imprimir, pois o código está só para registro 2. Existe alguma maneira de imprimir todos os registro de uma só vez.
MSMJUDAS 08/06/2010 14:38:05
#344270
No seu SQL vc precisa tirar a clausala WHERE para que apareca todos:


rs.Open [Ô]SELECT p.*, a.* [Ô] & _
[Ô]FROM (TblPocket p [Ô] & _
[Ô]INNER JOIN TblAcessorio a [Ô] & _
[Ô]ON p.Codigo = a.CodAcess) [Ô], con, 1, 3
JPAULO101 08/06/2010 15:39:08
#344275
ok MSMJUDAS, consegui, muito obrigado pela ajuda.
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar