这样吗:
Dim doc As New PrintDoc Dim rt As New prt.RenderText rt.Text = "----------------------剪裁线------------------------" doc.Body.Children.Add(rt) doc.Preview()