IMPRIMIR ETIQUETAS VB.NET
                    Pessoal,
em uma tela do sistena .net eu faço uma pequisa no cb que me retorna um datatable com as informações para serem impressas em etiquetas (tipo endereco, para mala direta).
Estou tendo dificuldades em posicionar os campos na folha, para que ela possa imprimir mais de uma pagina sem sair da posicção correta.
Alguem tem alguma ideia ou poderia me ajudar com alguma dica?
grato
            em uma tela do sistena .net eu faço uma pequisa no cb que me retorna um datatable com as informações para serem impressas em etiquetas (tipo endereco, para mala direta).
Estou tendo dificuldades em posicionar os campos na folha, para que ela possa imprimir mais de uma pagina sem sair da posicção correta.
Alguem tem alguma ideia ou poderia me ajudar com alguma dica?
grato
                    Você está usando CrystallReports ou PrintDocument ??
Vc está usando a medida padrão sem definição ou em milimetros ??
Se precisar definir em milimetros e estiver usando printDocument:
Assim fica mais fácil fazer as medidas certinhas para etiquetas.
Espero que te ajude !!
Abraços !!
            Vc está usando a medida padrão sem definição ou em milimetros ??
Se precisar definir em milimetros e estiver usando printDocument:
e.Graphics.PageUnit = GraphicsUnit.MillimeterAssim fica mais fácil fazer as medidas certinhas para etiquetas.
Espero que te ajude !!
Abraços !!
                    da uma olhada no nesse tópico que eu estou fazendo a mesmo projeto que vc, mas usando o PrintDocument buscanco dados no DataGridView.  O código abaixo quando impresso fica assim:
***** *****
***** *****
***** *****
***** *****
***** *****
***** *****
www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=357812&varWorld=
            ***** *****
***** *****
***** *****
***** *****
***** *****
***** *****
www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=357812&varWorld=
  [ô]PERCORRE O DATAGRID VIEW
        For Each row As DataGridViewRow In Me.DataGridView1.Rows
            If Not row.IsNewRow Then
                If posicao = 0 Then
                    flag = (row.Cells(1).Value.ToString)
                    g.DrawString(flag, FONTE, Brushes.Black, 12, y)
                    y += 20
                    posicao = 1
                ElseIf posicao = 1 Then
                    flag = (row.Cells(1).Value.ToString)
                    g.DrawString(flag, FONTE, Brushes.Black, 500, i)
                    i += 20
                    posicao = 0
                End If
           End If
       Next 
                        Tópico encerrado , respostas não são mais permitidas
                    
                

