Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
19 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 19 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
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: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

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

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