I do this to print a barcode label on a DYMO label writer:
VB Code:
Printer.Orientation = vbPRORLandscape
Printer.Font = "Code39XS"
Printer.FontBold = False
Printer.FontSize = 18
Printer.Print "*" & strDate & "*"
Printer.CurrentY = Printer.CurrentY + 180
Printer.Print "*"; strMasId & "#" & strProcessor & "*"
Printer.CurrentY = Printer.CurrentY + 180
Printer.Font = "Courier new"
Printer.FontSize = 8
Printer.Print strName
Printer.EndDoc
We print pictures like this:
VB Code:
Dim picOut As IPictureDisp
Dim imgResizeW As Double, imgResizeH As Double
Set picOut = LoadPicture(strPicFile)
Printer.PaintPicture picOut, prtItems(i, 2), prtItems(i, 3), imgResizeW, imgResizeH
' the arguments are picture, x, y, width, height - last two are optional