簡體   English   中英

Excel找不到要打印的內容

[英]Excel can't find anything to print

我正在開發需要導出數據的應用程序。 我將此數據導出到JSON,DB,然后在excel中創建證書。

導出到excel和excel文件創建工作正常,但是我無法打印excel。 我從我的應用程序(VB.NET)以及VBA(檢查我的應用程序是否有問題)中進行了嘗試,但均失敗了。 如果使用excel打開文件,盡管設置了PrintRange,但無法打印,也看不到預覽。

我總是

“ Excel找不到要打印的東西”

我嘗試打印工作簿,圖紙和范圍,但始終相同。 我也嘗試設置worksheet.PageSetup.PrintArea和相同。 嘗試ExportAsFixedFormat效果不佳。 我還嘗試將所有已安裝的打印機設置為默認打印機,但沒有進行任何操作,每台打印機都會失敗。

僅使用此文件會發生這種情況,其他任何文件都不會出現問題。

如果我打開文件(要打印),盡管設置了打印范圍,但也會看到“沒有要打印的內容”而不是預覽。

現在,如果我單擊一個單元格,請寫某事。 並刪除它或進行任何交互,然后我就能看到預覽並打印文件。

如果我現在保存工作文件並嘗試在一個簡單的App中打開文件並進行打印,則會出現錯誤消息。 如果我在excel中重新打開文件,則不會再看到預覽,必須與文件進行交互才能打印。

我盡了一切努力,也瘋狂地搜尋着,但一切都奏效了。

我希望有人遇到同樣的問題並能為我提供幫助,或者只是知道我在做什么或我的excel文件有什么問題,因為這是我一生中第一次(並且在excel中工作很多)我已經看到了此消息。

導出代碼有點長,所以我沒有在這里發布它,但是有點像這樣:

    Public Shared Function ExportCalibrationAsync(pressureCalibration As PressureCalibration, filePath As String, fileName As String, excelTemplate As Byte()) As Task 'TODO:Refactor...Not use 2.dots
        Return Task.Run(Sub()
                            CheckFileName(fileName)
                            Dim fullPath = Path.Combine(filePath, fileName)
                            Dim tempFileName = Path.GetTempFileName()
                            Dim tempFullPath = Path.Combine(filePath, tempFileName)
                            Dim excel = New Excel.Application()
                            Dim row = 1
                            'Write the passed excel template to a tempFile
                            My.Computer.FileSystem.WriteAllBytes(tempFullPath, excelTemplate, False)
                            Dim excelWorkbooks = excel.Workbooks
                            'Add template workbook to actual workbook
                            Dim excelWorkbook As Excel.Workbook = excelWorkbooks.Open(tempFullPath)

                            '////////////
                            '////Code to Export data to excel
                            '////////////

                            '//ExportAsFixedFormat or Print doesn't work and
                            '//MsgBox pops up with "Excel could not find anything to print"
                            excelWorkSheet.PageSetup.PrintArea="$A$1:$G$40"
                            excelWorkSheet.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF,filePath,XlFixedFormatQuality.xlQualityStandard)
                            excelWorkbook.SaveAs(fullPath)
                            excelWorkbook.Close()
                            excel.Application.Quit()
                            excel.Quit()
                            File.Delete(tempFullPath)
                            GC.Collect()
                            GC.WaitForPendingFinalizers()
                            GC.Collect()
                            GC.WaitForPendingFinalizers()
                            Marshal.ReleaseComObject(calibrationChartObject)

我在此工作表中有一個圖表,但我認為該圖表不是問題,因為我可以使用相同的代碼打印其他帶有圖表的文件。

我只是第一次遇到這個錯誤。 我意識到,我已經更改了工作簿中的一個工作表,僅打印了四頁中的第四頁,並且顯然對沒有四頁的其他工作表也使用了相同的設置。 清除頁碼(第4頁,共4頁)解決了此問題。

我終於(兩周后)找到了解決方案,至少對我有用。

我一直都在激活頁面布局視圖的情況下保存文件。 照片中間的那個。 預習

今天,我再次進行測試,我決定保存激活正常的布局,以確保它能正常工作!!!

我已經檢查過,絕對可以解決問題。如果我在任何文件中激活pagelayout,請保存並嘗試將其導出。...“ Excel找不到要打印的內容”。

這個錯誤真的很奇怪(至少對我而言)。 如果有人知道這是否有原因告訴我...我認為這可能是一個小錯誤。

我有同樣的問題。 該視圖已經處於“普通”布局中。

我發現問題是由於打印設置:-活動工作表-打印頁面

選擇要打印的紙張,確保它是打印中的“活動紙張”選項。 不要將頁面視為表格。 頁面是輸出。

如果僅從當前工作表打印出1頁,尤其是當縮放比例設置為“將工作表調整為1頁”時,輸出將不超過1頁,並且嘗試從2開始打印頁面將確保具有此功能錯誤。

暫無
暫無

聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.

 
粵ICP備18138465號  © 2020-2024 STACKOOM.COM