Rapor bir TEK TEK html dosyasına nasıl dışa aktarılır?

Question

Raporu ile html'ye aktar işlevini kullandığımda, Access html'nin birden çok sayfası oluşturur (her sayfada yaklaşık 30 satırlık veri var).

Tüm rapor için bir TEK tek html dosyası oluşturmak için Access'i nasıl zorlayabilirim? Teşekkürler.

Answer 1

Yapılamaz. Kağıt boyutu yazıcı sürücüsüne göre ayarlanmalıdır. Erişim, Sayfa Yapısı'nda bu seçenek mevcut olsa bile Kullanıcı Tanımlı kağıt boyutuna izin vermez.

Answer 2

Başkaları için faydalı olabilecek bir işlev oluşturdum. Bir dosya yolunu alır ve ardından belge tamamlanana kadar bağlantıları izler. Raporu bir html dosyasına aktarmanız ve ardından bu işlevi bu yolla kullanmanız gerekir. Outlook için bir mesaj oluşturmak için kullanıyorum. Bu, Windows Script Host nesne modeli

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

de komik bir geçici çözüm tür ama kelime daha sonra açık bir .rtf olarak dışa ve .htm olarak kurtarabilecek bir başvuru gerektirir. işte!