Tenho duas duvidas a respeito do objeto Printer e de uma consulta SQL.

 

Estou carregando um Grid da seguinte forma.

 

Grid1.Rows = 2
    cont = Grid1.Rows - 1
    Do While Not tb.EOF
        Grid1.TextMatrix(cont, 0) = tb!id
        Grid1.TextMatrix(cont, 1) = tb!Código
        Grid1.TextMatrix(cont, 2) = tb!Nome
        Grid1.TextMatrix(cont, 3) = tb!Item_Fechado
        Grid1.Rows = Grid1.Rows + 1
        
        cont = cont + 1
        tb.MoveNext
    Loop
    Grid1.Rows = Grid1.Rows - 1
    tb.MoveMax

 

1 Opção: Tenho que imprimir somente os registros que tem o código xxxxxx e Item_Fechado esteja escrito a palavra "SIM"

 

2 Opção: Imprimir o Grid, mas somente as linha do Grid que estiverem com o campo Item Fechado a palavra "SIM"

 

As duas opções irão dar certo. Infelizmente eu não sei como faço isso e preciso da ajuda de vcs novamente.

 

vc quer imprimir o grid ou os resultados?

 

O grid.

1 - vc vai ter q ter um option button para selecionar as opções

2 um bt comando para mandar imprimir

 

a sua consulta para a primeira opção seria

dim selecao as string

selecao="select* from tabela where tabela.código="& variavel & "and tabela.Item_Fechado =" & "sim"

 

2  opção

Muito obrigado pelas dicas, tanterei fazer esta rotina em minha casa hoje e amanha postarei dizendo se deu certo OK. Muito obrigado.

Estou usando o seguinte instrução, só que esta dando errado.

 

Set tb = db.OpenRecordset("SELECT * FROM tabcOTACAO WHERE Codigo=" & txtCodigoCliente.Text & "and ItemFechado =" & "SIM")

Alguém sabe o q ta acontecendo?