Select label when printing to Dymo 450 Twin Turbo

[LilStevie]

Ok, I thought that I think that i have got this to print to to the correct printer, now i just need some help to get it to print to the correct label. I have a DYMO 450 Twin turbo and I would like to print to the right side label only.

I have some basic knowledge, but any help or pointing in the correct direction would be greatly appreciated.

This is a USB printer, i have attempted to modify the printer settings through windows print set up to no avail, it always defaults to the left side label.

Thank You!!!

EDIT: I have found this through google, but i have no idea on how to incorporate it. http://developers.dymo.com/2010/04/30/the-dymoaddin-object/

Sub printDYMO()
Dim oldpname As String
Dim temppname As String
Dim j As Integer


' ##### check for computer, if not found exit ##########

If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> "849981254" Then
     MsgBox "DYMO Label printer not found" & vbCr & "Please hand write the CCK vial and syringe labels", vbCritical, "CCK Labels"
     Exit Sub
End If

' ####### record default printer for reset later ###########

oldpname = Application.ActivePrinter 


' ######## loop through printer NEOx names ############
For j = 0 To 9
    On Error Resume Next

    temppname = "DYMO LabelWriter 450 Twin Turbo on Ne0" & j & ":"

    Application.ActivePrinter = temppname

If Application.ActivePrinter = temppname Then
    

    unprotectall
    Sheet8.PrintOut Copies:=1
    protectall
    MsgBox "CCK Vial label and Patient Syringe label printed to DYMO printer", vbCritical, "CCK Labels"
    Exit For
End If

Next j


 Application.ActivePrinter = oldpname

End Sub

 

[LilStevie]

Anyone?