Adressing Dymo Labelwriter 400

[John]

Hi,

I want to be able to print labels on a Dymo Labelwriter 400, and have asked the supplier for some info. They've sent me a SDK of 5MB.

Before i start digging into this, i was wondering if anyone already may have dealt with this printer before and has some code available?

Thanks in advance!

John.
(I'm using FWH 2.7, Borland 5.5.1 and xHarbour 0.99.60)

[James Bott]

You can't just use the regular print device driver?

James

[TimStone]

I use the Turbo 330 and run it from within a program. Here is the code I use:


FUNCTION ShipLabel
// Declare variables
LOCAL oDbf, nRow := 0

PRINT oPrn NAME "Report Printing" TO "DYMO LabelWriter 330 Turbo" // FROM USER

// Define the fonts to be used
DEFINE FONT oFnorm NAME "Courier New" SIZE 0, - 12 OF oPrn
DEFINE FONT oFbold NAME "Courier New" SIZE 0, - 12 BOLD OF oPrn
nRsp := oPrn:nVertRes() / 20 // Number of rows
nCsp := oPrn:nHorzRes() / 40 // Number of columns
oPrn:SetLandscape( )
nRow := 2 * nRsp

PAGE
oPrn:Say( nRow, 10 * nCsp, "MasterLink Software", oFbold )
nRow += nRsp
oPrn:Say( nRow, 15 * nCsp, "PO Box 740", oFbold )
nRow += nRsp
oPrn:Say( nRow, 5 * nCsp, "Trabuco Canyon, CA 92678-0740", oFbold)
nRow += nRsp
oPrn:Say( nRow, 2 * nCsp, "_________________________________", oFnorm )
nRow += 2 * nRsp
oPrn:Say( nRow, 2 * nCsp, oCli:company, oFnorm )
nRow += nRsp
oPrn:Say( nRow, 2 * nCsp, oCli:street, oFnorm )
nRow += nRsp
oPrn:Say( nRow, 2 * nCsp, TRIM(oCli:city) + ", " + oCli:state + " " + oCli:zipcode, oFnorm )
ENDPAGE
ENDPRINT
oFnorm:end()
oFbold:end()

RETURN NIL

The same, I suspect, would work with the 400. I hope this helps.

Tim

[John]

Hi Tim,

thanks, this looks much more easier than the samples in the provided SDK!

One remaining question: do you also use barcodes with this printer and if so, how?

Best regards,

John.