You have to open the files that your project consist of, and then print it.

VB Code:
  1. Private Sub Command3_Click()

  2.     CommonDialog1.ShowPrinter

  3.     Open "C:\MyApp\Form1.frm" For Binary As #1

  4.         s = Input(LOF(1), 1)

  5.     Close #1

  6.     Printer.Print s, CommonDialog1.hDC

  7.     Printer.EndDoc

  8. End Sub

the sample will print source code (and some) of the From1 in the project located in C:\MyApp