D
Duane Haas
We have an access 97 application that will create an email and sent off
a report in a .rft format, the problem is for a couple of our users the
report headings and columns get cut off for some reason. For most of
the users when they genereate and send the report it shows up fine, I
have listed the code below, please let me know if you see any reason why
this would happne, is there a setting in access i am missing?
Private Sub Command34_Click()
'define variables
Dim dbs As Database
'COM Variables
Dim notes_to(9) As String
Dim copy_to(9) As String
Dim blind_to(2) As String
Dim rname$
Dim subj$
Dim mail_msg$
Dim file_ext$
Dim file_type
Dim obj_type
Dim no_file$
Dim dpath$
Dim crlf$
crlf = Chr(10) + Chr(13)
dpath = "\\TR-MKE-FILE01\Shared\Trust Product Lines\Operations and
Support Services\Income Department\"
'dpath = "c:\"
Set dbs = CurrentDb
'Send_Weekly_Summary_Report
notes_to(1) = "Alyssa Green"
notes_to(2) = "Marcella Thompson"
notes_to(3) = "Tawanna Frazier"
notes_to(4) = "Cyntha Rohlfs"
notes_to(5) = "Jill Moyer"
notes_to(6) = "Maria Waszak"
notes_to(7) = "Rpbert Braasch"
notes_to(8) = "Ripal Parikh"
copy_to(1) = "Eric Retzlaff"
rname = "2 paydowns w_pmt date"
file_type = acFormatRTF
obj_type = acOutputReport
subj = "Final Paydown Report (Maturity Team)"
mail_msg = " "
file_ext = ".rtf"
no_file = ""
Call send_mail_com(rname, dpath, notes_to(), copy_to(), blind_to(),
subj, obj_type, mail_msg, file_type, file_ext, no_file)
End Sub
Thanks
Duane Haas
a report in a .rft format, the problem is for a couple of our users the
report headings and columns get cut off for some reason. For most of
the users when they genereate and send the report it shows up fine, I
have listed the code below, please let me know if you see any reason why
this would happne, is there a setting in access i am missing?
Private Sub Command34_Click()
'define variables
Dim dbs As Database
'COM Variables
Dim notes_to(9) As String
Dim copy_to(9) As String
Dim blind_to(2) As String
Dim rname$
Dim subj$
Dim mail_msg$
Dim file_ext$
Dim file_type
Dim obj_type
Dim no_file$
Dim dpath$
Dim crlf$
crlf = Chr(10) + Chr(13)
dpath = "\\TR-MKE-FILE01\Shared\Trust Product Lines\Operations and
Support Services\Income Department\"
'dpath = "c:\"
Set dbs = CurrentDb
'Send_Weekly_Summary_Report
notes_to(1) = "Alyssa Green"
notes_to(2) = "Marcella Thompson"
notes_to(3) = "Tawanna Frazier"
notes_to(4) = "Cyntha Rohlfs"
notes_to(5) = "Jill Moyer"
notes_to(6) = "Maria Waszak"
notes_to(7) = "Rpbert Braasch"
notes_to(8) = "Ripal Parikh"
copy_to(1) = "Eric Retzlaff"
rname = "2 paydowns w_pmt date"
file_type = acFormatRTF
obj_type = acOutputReport
subj = "Final Paydown Report (Maturity Team)"
mail_msg = " "
file_ext = ".rtf"
no_file = ""
Call send_mail_com(rname, dpath, notes_to(), copy_to(), blind_to(),
subj, obj_type, mail_msg, file_type, file_ext, no_file)
End Sub
Thanks
Duane Haas