Or if you want to print it out in a different way to how the form looks then something like this:
VB Code:
  1. Private Sub cmdPrint_Click()

  2. intResponse = MsgBox("Are you sure you want to print?", 4 + vbQuestion, "Print") 'Message box appears asking if you are sure you want to print

  3.  
  4. If (intResponse = 6) Then 'If the answer is Yes then

  5. Printer.FontSize = 20 'Font size is 20

  6. Printer.FontUnderline = True 'Font is underlined

  7. Printer.Font = "Arial" 'Font is Arial

  8. Printer.Print 'Prints a blank line

  9. Printer.Print Tab(1); "Customer Details" 'Prints Customer Details

  10. Printer.FontSize = 14 'Font size is 14

  11. Printer.FontUnderline = False 'Font is not underlined

  12. Printer.Print 'Prints blank line

  13. Printer.Print Tab(10); lblName.Caption '10 spaces and prints the caption of the Name label

  14. Printer.Print Tab(10); lblAddress1.Caption '10 spaces and prints the caption of the 1st address line

  15. Printer.Print Tab(10); lblAddress2.Caption '10 spaces and prints the caption of the 2nd address line

  16. Printer.Print Tab(10); lblPostcode.Caption '10 spaces and prints the postcode

  17. Printer.Print Tab(10); lblPhone.Caption '10 spaces and prints the phone number

  18. Reference = lblName.Caption 'The variable 'Reference' is lblname.Caption

  19. Reference2 = lblPostcode.Caption 'The variable 'Reference2' is lblPostcode.caption

  20. Reference3 = lblPhone.Caption 'The variable, 'Reference3' is lblPhone.Caption

  21. Printer.Print 'Prints a blank line

  22. Printer.EndDoc 'Ends printing

  23. End If 'Ends If Function

  24.  
  25. End Sub

You get the idea...