Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
24 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 24 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

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: 2

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 0

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

Rota de um arquivo

15/12/2016, 22:28 por Martins

Agradeço ajuda para o seguinte:
como guardar numa variável, um caminho ou rota,por exemplo


Comentários: 3

Estatísticas
Temos 6985 usuários registrados
O último usuário registrado atende pelo nome de Handerson Mildroz

Os nossos membros postaram um total de 17164 mensagens em 2588 assuntos

Imprimir etiquetas vb.net

Ver o tópico anterior Ver o tópico seguinte 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

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

edspicer
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


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