I can not get labels to print on a Windows 7 64 bit machine. The program works on windows 7 32 bit. The error is Can not Create OLE Objects
Public Class ArmsInput
Dim strAssemblyCode As String
Dim strLineID As String
Dim strLabelPrinter As String
Public strConnection As String = "DSN=ActiveM_Production_Sub;"
Public ProdRates As New ArrayList()
Public DymoAddIn As Object
Public DymoLabels As Object
Public i As Integer
Public Function CreateOLEObjects() As Object
On Error Resume Next
DymoAddIn = CreateObject("DYMO.DymoAddIn")
DymoLabels = CreateObject("DYMO.DymoLabels")
'If sucessful
If (DymoAddIn Is Nothing) Then
MsgBox("Unable to create OLE Objects")
End If
End Function