レポートを1つのシングルHTMLファイルにエクスポートするには？

Question

レポートでhtml関数にエクスポートを使用すると、Accessは複数のHTMLページを生成します（各ページには約30行程度のデータがあります）。

どのようにしてレポート全体に対して1つのシングルHTMLファイルを生成するにはどうすればよいですか？ありがとう。

Answer 1

できません。用紙サイズは、プリンタドライバに基づいて設定する必要があります。このオプションがページ設定に存在していても、アクセスではユーザー定義の用紙サイズは許可されません。

Answer 2

他の人に役立つ機能を作成しました。ファイルパスを取り、文書が完成するまでリンクをたどります。レポートをhtmlファイルにエクスポートし、そのパスをこの関数で使用する必要があります。私はOutlook用のメッセージを作成するためにそれを使用します。 これは、Windowsスクリプトホストオブジェクトモデルへの参照

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

だけでなく、それが面白いの回避策のようなものだが、あなたは言葉で開いて、その後、.rtfファイルとしてエクスポートし、.htmファイルとして保存することができが必要です。酔いどれ！