FiveTech Software tech support forums

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)

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

James

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

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.