新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Form1.PrintForm
End Sub

运行并点击后可以选择windows自带的打印成PDF文件查看。