MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    VBA para Impressora Datamax

    avatar
    Belobo
    Novato
    Novato

    Respeito às Regras 100%

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

    VBA para Impressora Datamax  Empty VBA para Impressora Datamax

    Mensagem  Belobo em 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
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

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

    VBA para Impressora Datamax  Empty Re: VBA para Impressora Datamax

    Mensagem  crysostomo em 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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Belobo
    Novato
    Novato

    Respeito às Regras 100%

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

    VBA para Impressora Datamax  Empty Re: VBA para Impressora Datamax

    Mensagem  Belobo em 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

    Conteúdo patrocinado

    VBA para Impressora Datamax  Empty Re: VBA para Impressora Datamax

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:05