Hvorfor kan jeg ikke udskrive tekst

Jeg har prøvet at udskrive noget tekst, men der kommer bare et blankt papir ud af printeren.

Har derefter prøvet at udskrive et billede sammen med teksten, og billedet blivet printet ringtigt nok.

Hvad gør jeg galt ?

Lidt source kode at kigge på.

    Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
        Dim pd As Printing.PrintDocument = New Printing.PrintDocument()
        AddHandler pd.PrintPage, AddressOf PDoc_PrintPage
        PrintDialog.Document = pd
        PrintDialog.ShowDialog()
        pd.Print()
    End Sub

    Private Sub PDoc_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
        Dim G As Graphics = e.Graphics
        Dim F As New Font("Times New Roman", 20, FontStyle.Regular, GraphicsUnit.Pixel)
        G.DrawString("Noget tekst", F, Brushes.Black, 100, 100)
        G.DrawImageUnscaled(Image.FromFile("d:\m1.jpg"), 300, 300)
    End Sub