IMPRIMI DADOS DE UM DBGRID1 USANDO O PRINTER.PRINT

 Tópico anterior Próximo tópico Novo tópico

IMPRIMI DADOS DE UM DBGRID1 USANDO O PRINTER.PRINT

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#483974 - 15/08/2018 21:06:26

GENUSSPEIXOTO
PEIXOTO DE AZEVEDO
Cadast. em:Julho/2018


Oi boa Noite
Estou com uma dificuldade em Relação ao comando Printer.print do vb6
bom cruel o relatório certinho com o Printer.Print mas quando cheguei na parte que precisava
dos dados que estão da Grid eu empaquei.
A pergunta é: Alguém sabe como faço para Imprimir os dados de um dbGrid1
ja pesquisei de tudo e não achei nada.



#483975 - 15/08/2018 21:45:49

SONILDO
CAMPO GRANDE
Cadast. em:Agosto/2009


Você deve varrer as colunas do objeto e pegar os valores de cada célula e escrever o print.



#483976 - 15/08/2018 21:48:35

SONILDO
CAMPO GRANDE
Cadast. em:Agosto/2009


2 links para estudos
http://www.macoratti.net/vb_dbgt2.htm
http://www.macoratti.net/vb6grids.htm



#483978 - 15/08/2018 22:19:48

GENUSSPEIXOTO
PEIXOTO DE AZEVEDO
Cadast. em:Julho/2018


Citação:
:
Você deve varrer as colunas do objeto e pegar os valores de cada célula e escrever o print.

Então eu fiz assim ,mas esta repetindo a primeira linha

    Do While i < DBGrid1.ApproxCount
    Printer.Print DBGrid1.Columns(2); Tab(42); DBGrid1.Columns(4); Spc(10); DBGrid1.Columns(3); Spc(7); DBGrid1.Columns(5); ""
    i = i + 1

alguem te um exemplo ai?



Resposta escolhida #483979 - 16/08/2018 07:29:31

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


    Do While i < DBGrid1.ApproxCount
    Printer.Print DBGrid1.Columns(2); Tab(42); DBGrid1.Columns(4); Spc(10); DBGrid1.Columns(3); Spc(7); DBGrid1.Columns(5); ""
    i = i + 1
    DBGrid1.Row = DBGrid1.Row + 1

Jones Paris

#483980 - 16/08/2018 09:32:59

GENUSSPEIXOTO
PEIXOTO DE AZEVEDO
Cadast. em:Julho/2018


Citação:
:
    Do While i < DBGrid1.ApproxCount
    Printer.Print DBGrid1.Columns(2); Tab(42); DBGrid1.Columns(4); Spc(10); DBGrid1.Columns(3); Spc(7); DBGrid1.Columns(5); ""
    i = i + 1
    DBGrid1.Row = DBGrid1.Row + 1

Bom dia parceiro eu fiz igual o exemplo ele dar o erro Numero de Linhas Invalido
nesta parte DBGrid1.Row = DBGrid1.Row + 1
mas quando finaliso o projeto ele imprimi os dados da gride acho que ó falta um detalhe



#483987 - 16/08/2018 16:28:02

JONESPARIS
ERECHIM
Cadast. em:Fevereiro/2006


    
On error resume next
    Do While i < DBGrid1.ApproxCount
    Printer.Print DBGrid1.Columns(2); Tab(42); DBGrid1.Columns(4); Spc(10); DBGrid1.Columns(3); Spc(7); DBGrid1.Columns(5); ""
    i = i + 1
    DBGrid1.Row = DBGrid1.Row + 1
Printer.EndDoc

Jones Paris

#483989 - 16/08/2018 17:01:21

GENUSSPEIXOTO
PEIXOTO DE AZEVEDO
Cadast. em:Julho/2018


Citação:
:
    
On error resume next
    Do While i < DBGrid1.ApproxCount
    Printer.Print DBGrid1.Columns(2); Tab(42); DBGrid1.Columns(4); Spc(10); DBGrid1.Columns(3); Spc(7); DBGrid1.Columns(5); ""
    i = i + 1
    DBGrid1.Row = DBGrid1.Row + 1
Printer.EndDoc

Obrigado pela força mais eu resolvi assim...

  Do While i < DBGrid1.ApproxCount - 1
    Printer.Print DBGrid1.Columns(2); Tab(42); DBGrid1.Columns(4); Spc(10); DBGrid1.Columns(3); Spc(7); DBGrid1.Columns(5); ""
    i = i + 1
    DBGrid1.Row = DBGrid1.Row + 1



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por GENUSSPEIXOTO em 16/08/2018 17:02:16