MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]VBA para Impressora Datamax

    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]VBA para Impressora Datamax Empty [Resolvido]VBA para Impressora Datamax

    Mensagem  Belobo 31/7/2019, 05:34

    Bom dia
    Gostaria de saber se o código abaixo pode ser rodado em access ou necessita de alguma alteração
    Minha experiência é apenas em utilizar códigos prontos
    Como baixei o exemplo direto da Datamax gostaria que alguém com experiência em VBA pudesse avaliar

    Segue código

    VB Application Generating DPL
    The following sample is a Visual Basic program that displays a database record on the screen. A user can scroll through the records and then print a selected one. Five bar codes are printed along with data fields and headings.

    ‘Printer DPL Controls
    Dim CharSet As String‘ byte
    Const StartLabel = “L”
    Const EndLabel = “E”
    Const PrintDensity = “D11”
    ‘Printer DPL Data to position dynamic information on label
    Const OrderTxt = “191100704150010”‘font 9, 24 pt
    Const OrderBC = “1a6205004200120”
    Const CustomerTxt = “191100603600010”
    Const Item1NO = “191100403250010”
    Const Item1BC = “1a6204002870010”
    Const Item1Txt = “191100402690010”
    Const Item1Qty = “191100603070260”
    ‘DPL Fixed Items on label
    Const Itm1 = “191100303400010Item #”
    Const Qty1 = “191100303400250Quantity”
    Const Boxsize = “B065035002002”
    Const BoxPos1 = “1X1100003050240”
    Const Image1 = “1Y3300004750010SLANT1”
    Dim Fixed As String
    ‘Item Variables
    Dim Item1 As String
    Dim PrintLabel As String
    Dim OrderData As String
    ‘Print label by clicking print button with the mouse
    Private Sub cmdPrint_Click()
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    [Resolvido]VBA para Impressora Datamax Empty Re: [Resolvido]VBA para Impressora Datamax

    Mensagem  crysostomo 13/8/2019, 19:42

    boa tarde , da uma olhada nesse codigo
    Código:
    Private Sub SeuBotão_Click()
    'By JPaulo ® Maximo Access
    Dim stDocName As String
    stDocName = "SeuRelatório" 'nome do seu relatório
    DoCmd.OpenReport stDocName, acViewPreview
    On Error Resume Next 'Caso você cancele a impressão e gere o erro 2501
    'Aqui define qual a impressora em que deseja imprimir, eu coloquei a HP PSC 1600 series para exemplo
    'Em vez do nome da impressora, pode defenir pelo index, Application.Printers(4) ou Application.Printers(5)
    Set Reports!SeuRelatório.Printer = Application.Printers("HP PSC 1600 series")
    DoCmd.OpenReport stDocName, acViewNormal
    DoCmd.Close
    End Sub


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]VBA para Impressora Datamax Empty Re: [Resolvido]VBA para Impressora Datamax

    Mensagem  Belobo 13/8/2019, 22:42

    A impressão em DPL normalmente é feita em arquivos TXT através de comandos DOS. Como existe essa abertura via VB joguei o código aqui para uma possível saída dos experts que já tenha trabalhado com impressora Datamax Oneill que o caso da linguagem DPL
    Esse código me parece ser impressão via Windows que se torna muito lenta
    avatar
    Belobo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 130
    Registrado : 12/07/2014

    [Resolvido]VBA para Impressora Datamax Empty Re: [Resolvido]VBA para Impressora Datamax

    Mensagem  Belobo 2/4/2021, 19:54

    Nao houve saida
    Caso encerrado

    Conteúdo patrocinado


    [Resolvido]VBA para Impressora Datamax Empty Re: [Resolvido]VBA para Impressora Datamax

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:35