Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
Não há nenhum usuário online :: Nenhum usuário registrado, Nenhum Invisível e nenhuma Visita :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Retorno quantidade registros tabela mysql

1/10/2018, 16:07 por rrfsistemas

Pessoal não consigo pegar o retorno da consulta MYSQL com o resultado da contagem do numero de …

Comentários: 0

CONEXÃO MYSQL EM SITES

25/7/2018, 16:28 por AMELIO

BOA TARDES A TODOS
ESTOU TENTO UM PROBLEMINHA QUE QUANDO FAÇO A CONEXÃO MYSQL EM SERVIDOR  


Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 3

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 1

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 1

Estatísticas
Temos 7095 usuários registrados
O último usuário registrado atende pelo nome de Robson0

Os nossos membros postaram um total de 12262 mensagens em 1556 assuntos

Imprimir etiquetas vb.net

Ir em baixo

Em curso Imprimir etiquetas vb.net

Mensagem por edspicer em 24/11/2010, 11:03

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
avatar
edspicer
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Imprimir etiquetas vb.net

Mensagem por Marcos Guedes em 24/11/2010, 14:07

Podes postar algum código de como estais fazendo e mais detalhes sobre o problema?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
http://portal.programacaobrasil.com

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Imprimir etiquetas vb.net

Mensagem por edspicer em 29/11/2010, 11:36

segue o codigo abaixo..
na tela sai a posicao certinha, mas quando vai imprimir na impressora, a segunda coluna sobrepoe a primeira.

Código:
Private Function Imprimir() As StringBuilder
        Dim sEtiquetas As System.Text.StringBuilder = New System.Text.StringBuilder

        Dim dataTable As DataTable = CType(Session("Result"), DataTable)
        Dim numesq As Integer = 0
        Dim numdir As Integer = 0

        With sEtiquetas
            For x = 0 To dataTable.Rows.Count - 1 Step 2
                Dim divesq As String = "<div style='font-family:Arial,Sans-serif,Helvetica; font-size:12px; border:1px; border-color:Silver;color:blue;position:absolute;padding-left:10px;width:300px; height:75px;top:"
                divesq = divesq & numesq & "'>"
                numesq = numesq + 95
                .Append(divesq)
                'nome do NOME
                .Append(Left(dataTable.Rows(x)("NOME"), 40))
                .Append("<br>")
                'endereco e bairro
                .Append(dataTable.Rows(x)("ENDERECO") & " - " & dataTable.Rows(x)("BAIRRO"))
                .Append("<br>")
                'cidade e estado
                .Append(dataTable.Rows(x)("CIDADE") & " - " & dataTable.Rows(x)("ESTADO"))
                .Append("<br>")
                'cep
                .Append(dataTable.Rows(x)("CEP"))
                .Append("</div>")
                Dim contlinha As Integer = contlinha + 1
                If contlinha = 10 Then
                    Response.Write("<br>")
                    Response.Write("<br>")
                    Response.Write("<br>")
                    contlinha = 0
                    numesq = numesq + 28 'quebra de linha
                End If

                If dataTable.Rows.Count > 1 Then
                    If x <> dataTable.Rows.Count - 1 Then
                        ' Margem da coluna direita alterada exclusivamente para a impressora de etiquetas - ederaldo 26/11/2010 - left original: 375...
                        Dim divdir As String = "<div style='font-family:Arial,Sans-serif,Helvetica; font-size:12px; border:1px; border-color:Silver;color:blue;position:absolute;padding-left:675px; height:55px;top:"
                        divdir = divdir & numdir & "'>"
                        numdir = numdir + 95
                        .Append(divdir)
                        'nome do NOME
                        .Append(Left(dataTable.Rows(x + 1)("NOME"), 40))
                        .Append("<br>")
                        'endereco e bairro
                        .Append(dataTable.Rows(x + 1)("ENDERECO") & " - " & dataTable.Rows(x + 1)("BAIRRO"))
                        .Append("<br>")
                        'cidade e estado
                        .Append(dataTable.Rows(x + 1)("CIDADE") & " - " & dataTable.Rows(x + 1)("ESTADO"))
                        .Append("<br>")
                        'cep
                        .Append(dataTable.Rows(x + 1)("CEP"))
                        .Append("</div>")
                        Dim contlinha2 As Integer = contlinha2 + 1
                        If contlinha2 = 10 Then
                            .Append("
")
                            .Append("
")
                            .Append("
")
                            contlinha2 = 0
                            numdir = numdir + 28 ' quebra de linha
                        End If
                    End If
                End If
            Next
        End With

        Return sEtiquetas
    End Function
avatar
edspicer
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Imprimir etiquetas vb.net

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum