Basta usar o método line. P.Ex.
Dim PosX as single, PosY as single
PosX=Printer.CurrentX
PosY=Printer.CurrentY
Printer.Line(0,0)-(printer.ScaleWidth, Printer.ScaleHeight),,b
Printer.CurrentX = PosX
Printer.CurrentY=PosY
Printer.Print...
As variáveis PosX e PosY servem para guardar a posição da impressão antes de usar o método Line. Se você não fizer isso e tentar imprimir algum texto depois, a impressora irá desenhar uma borda e imprimir abaixo dela!