Labelwriter.com is currently down. If you are linking to the JavaScript SDK file that is hosted on Labelwriter.com your web application will not work at the moment. As a best practice in the future, we recommend that you do not link to the JavaScript file that is hosted on our servers but download a copy and host on your own servers. This will prevent a couple of issues:

Any outages on our end will not affect your application

Any updates that are made to the latest JavaScript file will not break your application

While LabelWriter.com is down, you can download the latest version of the JavaScript file from here.

We apologize for the inconvenience and hope to have Labelwriter.com up and running again soon.

Update

Labelwriter.com is back up an running. Once again, we apologize for the inconvenience.

Sub PrintLabels()
Private Sub CommandButton2_Click()
‘This routine prints Excel data on sticker by using a template and the Dymo high level COM.
‘It assumes you have a Dymo labelwriter printer and you have created a label that will
‘serve as a template. On the label are two’text objects named OText1 and OText2.
‘As a data source we assume text in cells B2:B5 and C2:C5 on your the first worksheet but
‘obviously you can use any data source you like.

Dim myDymo As Object
Dim myLabel As Object
Dim sPrinters As String
Dim arrPrinters() As String
Dim i As Long, i2 As Long, iStart As Long

On Error Resume Next
Set myDymo = CreateObject(“Dymo.DymoAddIn”)
Set myLabel = CreateObject(“Dymo.DymoLabels”)
If (myDymo Is Nothing) Or (myLabel Is Nothing) Then
MsgBox “Unable to create OLE objects”
Exit Sub
End If

‘Store the current default printer and select the Dymprinter of your choice
sDefaultPrinter = Application.ActivePrinter
With myDymo
‘0 is first Dymo printer, you could use the printername instead: SelectPrinter “YourPrintername”
.SelectPrinter arrPrinters(0)
End With

For i = 3 To 5
‘Give text objects OText1 and OText2 on the label a value
With myLabel
.SetField “Text1”, Worksheets(“INVOICE”).Range(“F9” & i).Value
.SetField “Text2”, Worksheets(“QUOTATION OUR COPY”).Range(“C9” & i).Value
End With

‘Print the label
With myDymo
‘.StartPrintJob ‘Only used for Turbo 400 model and higher for print optimizing, you may omit it
.Print 1, False ‘ Print 2 copies
‘.EndPrintJob ‘Only used for Turbo 400 model and higher for print optimizing, you may omit it
End With
Next i