Làm cách nào để xuất báo cáo thành MỘT tệp html SINGLE?

Question

Khi tôi sử dụng chức năng Xuất sang html với Báo cáo, Access tạo nhiều trang html (mỗi trang có khoảng 30 dòng hoặc hơn dữ liệu).

Làm cách nào để bắt buộc Access tạo tệp ONE SINGLE html cho toàn bộ báo cáo? Cảm ơn.

Answer 1

Không thể hoàn thành. Kích thước giấy phải được đặt dựa trên trình điều khiển máy in. Access không cho phép kích thước giấy do Người dùng Xác định mặc dù tùy chọn này tồn tại trong Thiết lập Trang.

Answer 2

Tôi đã tạo một hàm có thể hữu ích cho người khác. Nó có một đường dẫn tập tin và sau đó theo các liên kết cho đến khi tài liệu được thực hiện. Bạn cần xuất báo cáo sang tệp html và sau đó sử dụng đường dẫn đó trong hàm này. Tôi sử dụng nó để tạo một tin nhắn cho Outlook. Điều này đòi hỏi một tham chiếu đến Windows Script Host Object Model

Public Function fReadFile(strFile As String) As String 
On Error GoTo ErrHandler 

Dim FSO As FileSystemObject 
Dim tsInput As TextStream 
Dim strLine, strMessage As String 
Dim strNextFile As String 
Dim blnEnd As Boolean 

Do While Not blnEnd 
    Set FSO = New FileSystemObject 
    Set tsInput = FSO.OpenTextFile(strFile, 1) 
    Do While Not tsInput.AtEndOfStream 
     strLine = tsInput.ReadLine 
     If InStr(1, strLine, ">First<", vbTextCompare) > 0 And InStr(1, strLine, ">Previous<", vbTextCompare) > 0 And InStr(1, strLine, ">Next<", vbTextCompare) > 0 And InStr(1, strLine, ">Last<", vbTextCompare) > 0 Then 
      Debug.Print strLine 
      strNextFile = Mid(strLine, InStr(1, strLine, ">Previous</A> <A HREF=", vbTextCompare) + 23, InStr(1, strLine, """>Next<", vbTextCompare) - (InStr(1, strLine, ">Previous</A> <A HREF=", vbTextCompare) + 23)) 
      rem put the directory back in the file name 
      strNextFile = IIf(strNextFile <> "#", Mid(strFile, 1, (InStrRev(strFile, "\"))) & strNextFile, strFile) 
      blnEnd = (strNextFile = strFile) 
     Else 
      strMessage = strMessage & strLine 
     End If 
    Loop 
    tsInput.Close 
    Set FSO = Nothing 
    strFile = strNextFile 
Loop 
fReadFile = strMessage 
Exit Function 
ErrHandler: 
    Debug.Print Err.Description & " " & "fReadFile" 
    Resume Next 
End Function 

Answer 3

tốt đó là loại một workaround hài ​​hước nhưng bạn có thể xuất khẩu như một .rtf, sau đó mở bằng lời nói và tiết kiệm như .htm. thì đấy!