主题：直接打印Excel表时，如何指定“页面设置”上的打印质量

设置属性 PrintQuality

你可以通过【录制宏】，得到对应的代码，改写到foxtable即可

http://www.foxtable.com/webhelp/scr/2121.htm

1、默认打印机，设置成 doPDF v7

2、删掉代码 App.ActivePrinter ="doPDF v7"

3、请在excel里面录制宏，获取得到代码

设置默认打印机，参考

Dim obj As object = CreateObject("WScript.Network")
obj.SetDefaultPrinter("打印机名")

必须设置默认打印机，没有其它方法。

换一种思路，把excel文件保存为图片，然后打印图片

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = app.WorkBooks.open("C:\Users\dv rrxaI600 007\Downloads\excel打印显示不全.xlsx")
    Dim Ws = wb.WorkSheets(1)
    Dim rg As MSExcel.Range = ws.UsedRange
   
    rg.copy
    'app.visible = True
    ClipBoard.GetImage.save("d:\aaa.wmf")
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

那试试这样写

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
app.PrintCommunication = False
Ws.PageSetup.PrintQuality = 96   '如果打印机不支持96 Dpi时,此行会报错;
Ws.PrintOut(Preview:=False,ActivePrinter: ="doPDF v7") '直接打印;
app.PrintCommunication = True

试试这样

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
'app.PrintCommunication = False
on error resume Next
Dim pname As String = "doPDF v7"
For i As Integer = 0 To 10
    app.activeprinter = pname & " 在 Ne" & Format(i, "00") & ":"
Next
msgbox(app.activeprinter)
Ws.PageSetup.PrintQuality = 96   '如果打印机不支持96 Dpi时,此行会报错;
'app.PrintCommunication = True
Ws.PrintOut

去看看你的打印机，你确定有这个名称的打印机【doPDF v7】？

如果确实有，试试代码改成

或者是，你把默认打印机改成【doPDF v7】，然后执行代码msgbox(app.activeprinter)

看弹出什么。