Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
12 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 12 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

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

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

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

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

Os nossos membros postaram um total de 31 mensagens em 17 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
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

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