[Resolvido]VBA para Impressora Datamax

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()

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

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

Nao houve saida
Caso encerrado