Setting the class correctly and using the DymoAddin4 appears to have solved the problems. I am now getting the fields in the .label labels as well as being able to process labels created with earlier versions of the Dymo software.

Many thanks for your help with this.

I have a working Excel VBA application on XP & Excel2003 with a older version of the DLS8 SETUP.
Because of rumors that the company will switch to Win7 / Office2010 i’m trying to get it working on my PC at home
(VISTA / Exel2007), and hope it will work then also on Win7 & Excel2010.
I don’t have a 450Turbo printer at home too.

I installed the DLS8Setup.8.3.1.1332 on the Vista (without a 450 Turbo printer connected at the end of the installation) and checked the checbox ‘DYMO Label software V.8 SDK’ in the VBE references listbox.

I use the same XLA utility as on the XP / Excel2003 machine, but it won’t work at all.
I can’t create the ‘Dymo.DymoAddin’ object.

Here below a snipset of the VBA code.
Anyone any clue why it can’t create the Dymo.DymoAddin object, but does on the XP/ Excel2003 machine?
I need to get it working before the switch to Win7 / Office2010.

Could it be that its because i haven’t connected a DYMO printer at the end of the installation?

——————————————————-
Sub TestIfOnline()
If CreateDymoPrinterObjects Then
Application.Cursor = xlWait
With g_oDymoPrinter
g_sDymoPrintername = .GetCurrentPrinterName
g_bOnLine = .IsPrinterOnline(g_sDymoPrintername)
End With ‘//g_oDymoPrinter
If Not g_bOnLine Then
g_iMyErrorNumber = 1
frmError.Show
End If
Application.Cursor = xlDefault
End If
End Sub
———————————————————
Function CreateDymoPrinterObjects() As Boolean
‘This fuction creates IDYMOAddIn object
On Error Resume Next
If (g_oDymoPrinter Is Nothing) Then
Set g_oDymoPrinter = CreateObject(“Dymo.DymoAddin”) ‘
End If
CreateDymoPrinterObjects = (Err = 0)
If Not CreateDymoPrinterObjects Then
MsgBox “Unable to create OLE objects: Dymo.DymoAddin”
End If
End Function
——————————————–

Any help welcome.
Regards,
Ludo

I note that in the Dymo_TBL, there are separate IDymoAddins up to IDymoAddin5. Numbers 4 and 5 have procedures for IsTwinTurboPrinter. However, if I try to create an IDymoAddin4 object, I get a Class not registered error message and can’t create the ActiveX object with code below

const
//Dymo Library classes names:
IDymoAddInName = ‘Dymo.DymoAddIn4′;
IDymoLabelsName = ‘Dymo.DymoLabels’;

{ TDymoLabel }

constructor TDymoLabel.create(aOwner: TComponent);
begin
inherited create(aOwner);
//Create Dymo Label ActiveX objects.
try
DL := CreateOleObject(IDymoAddInName) as IDymoAddIn4;
LB := CreateOleObject(IDymoLabelsName) as IDymoLabels;
except
MsgWarning(‘Unable to create Dymo Label ActiveX objects.’);
end;
end;

Does this suggest that the Dymo 8 software has not installed all the classes required and that maybe that is why I cannot get the fields in the label file for the .label files. I was just using the base IDymoAddin object and using the code below which was passed a stringlist of field names and data and the label file to print to get the fields from the label file and print the label. The LB.GetObjectNames(True), didn’t return anything. Also included below is the contents on the .label file.

procedure TDymoLabel.InstantPrintLabel(FieldValues: TStringlist; LabeFile: string;
aCopies: byte = 1; PrintIt: boolean = True);
var
ObjectList: String;
FieldList: tstringlist;
i: integer;
begin
//Create Dymo Label ActiveX objects.
if fileexists(LabeFile) then begin
DL.Open(LabeFile);
FieldList := TStringlist.create;
ObjectList := LB.GetObjectNames(false);
TokenToStringList(LB.GetObjectNames(True),’|',FieldList);
For i := 0 to FieldList.Count – 1 do
LB.SetField (FieldList[i], StrToDef(RepStr(FieldValues.values[FieldList[i]],’/n’,#13#10),’ ‘));
FieldList.free;
if PrintIt then
DL.Print(aCopies, false);
end
else
LogAppError(‘File not found ‘ + LabeFile,1,”);
end;

Landscape
Shipping
30323 Shipping

CLIENTSHORTNAME

Rotation180
False
True
Left
Top
ShrinkToFit
True
False

Client short name

CLIENTSHORTNAME2

Rotation0
False
True
Left
Top
ShrinkToFit
True
False

Client short name

Thanks

If you want to recreate Dymo_TLB.pas (though it is not necessary), use “Project/Import Type Library” menu item in Delphi7, select “DLS SDK COM Type Library”, and press “Create Unit” button.

Now, if you still have a problem (after installing DLS 8.3.1) with GetObjectNames method, please send the label file and the code fragment shows how you call the SDK. Thanks you.