Printing in a small paper-ASAP

Hi I am facing problems printing in a small paper of size 2.9 inches * 8 Inches I am always getting a report error saying that report width is larger I tried to print the contents from my list directly but it's not coming good Output Coca Cola 25 Pepsi 25 Rice 19 Code: '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub cmdPrint_Click() If List1.ListCount > 0 Then For i = 0 To List1.ListCount - 1 Printer.Print List2.List(i) Printer.Print List7.List(i) & vbCrLf Next i End If End Sub