Hello all,
I recently copied an excel spreadsheet to set up a new computer. The Dymo label printer is printing the labels very small, and I have changed the printer settings, updated drivers, and everything possible. The Dymo printer will print everything else except the spreadsheet info. Here is the code:
I recently copied an excel spreadsheet to set up a new computer. The Dymo label printer is printing the labels very small, and I have changed the printer settings, updated drivers, and everything possible. The Dymo printer will print everything else except the spreadsheet info. Here is the code:
VBA Code:
Sub printlabels()
Sheets("LABEL").Select
Range("C3:G9").Select
Range("C3:G9").Activate
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Input").Select
Range("A1").Select
DoEvents
Rows("19:19").Select
Selection.Copy
Sheets("Info").Select
Range("A" & Rows.Count).End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Input").Select
Range("A1").Select
End Sub
Sub resetsheet()
Sheets("Input").Select
Range("A1:A3").Select
Range("A1:A1").Activate
Selection.ClearContents
Range("A1").Select
End Sub
Sub print1morelabels()
Sheets("LABEL").Select
Range("C3:G9").Select
Range("C3:G9").Activate
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Input").Select
Range("A1").Select
End Sub
Private Sub Workbook_Open()
End Sub