Sub pd_print(ByVal sender As Object, ByVal e As PrintPageEventArgs)

        Dim fnt, fnt1 As Font
        fnt = New Font("黑体", 13)
        fnt1 = New Font("黑体", 15)
        e.PageSettings.Margins.Top = 0
        e.PageSettings.Margins.Left = 0
    
                    e.Graphics.DrawString("中国", fnt, Brushes.Black, 22, ycd)
                          
                e.HasMorePages = False
                fnt.Dispose()
    End Sub

    Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim pd As New PrintDocument
        AddHandler pd.PrintPage, AddressOf Me.pd_print
        pd.Print()
    End Sub   
End Class

谢谢这位大厦1