我自已解决了,在C1PrintDocument 设为横向预览,然后PrintDocument 打印时再调为纵向打印就行了。
Dim pd As PrintDocument = C1PrintDocument .Document
pd.DefaultPageSettings.Landscape =false
pd.PrinterSettings.PrinterName ="打印机名"
pd.PrinterSettings.PrintRange = PrintRange.SomePages
pd.PrinterSettings.FromPage =1
pd.PrinterSettings.ToPage =5
pd.Print() |