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.Millimeter
Assim 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