by unprotecting my sheet, that will allow the array to copy the sum value and not the
formula as it is doing now??

also, though my sheet is protected, the array has no problem copying the unprotected cells that are empty before my user types something in, it's just that the array is copying the formula from my total cell to my database and i get something like this..
=sum(#ref!,#ref) etc. instead of the value of the cell, (example $ 400.00 ).....

I will send you my file with my sheets unhidden, i hide them because they are all unprotected by necessity. only the office sheet is seen by the user
how do i send you my file

http://wikisend.com/download/467382/yard_invoice.xls

I am concerned only with the Database() and the Data worksheet
Database() is called when the PRINT commandbutton is pressed
the array copies the cells i need from the Office sheet to the datasheet
except for when it trys to copy AQ42 on office to the "M" column on the data
sheet, then I get the #ref! Instead of copying the sum value of that cell it copies the
formula in that cell. I am trying to understand how i can copy the sum of the formula
and not the formula. As you can see it has to happen automatically and at the same time.

Any Ideas?
thanks

Sorry for the trouble and yes, the release date or column c in the data worksheet is
intentionally set up as a circular reference but is not called in the array in Databae(),but
rather enters todays date when the corresponding "b" column has data put in it by the array.

Eventually i will have my "print" button also email a copy of the invoice to my boss as well as putting it in the database and saving a pdf copy in a directory as it does now.
if i can ever get my database to record a total for the transaction,

by the way, I don't want the save button to save anything, I want the user to think all he's done is print out an invoice when he hits print, thus all the programing and calling from the
print button.

If you think you can help me while still allowing me to do this than great,
ps. I am doing this for free, if you can believe it .

I can pay you Fifty now and additional if you have any ideas about automatic emailing to
an msn account. I have some ideas and have also surfed extensively as you can tell by some of the code.

If this is acceptable let me know.

thanks

Thanks.
I will be headed home soon, reachable by e-mail from then on...
I check the email at least once or twice a day, I will check more
often till I hear from you
XXX@XXXXXX.XXX, but I'm sure you have that.

this seems to work fine, will take to work tommorrow just to be sure,

thanks,

now it gets complicated, at least for me.
My pdfPrint() macro uses the free program Pdfcreator to copy the INVOICE
worksheet to the tow invoices directory as a pdf file the same time as the
invoice is printed.

I have a macro from the net that will email an excel file automatically,
but i have not tested it and would much rather email the pdf version instead.

the idea is the the user pushes "print" and an invoice is printed, copied to a database,
and then emailed to my bosses computer at home.
All this without the user knowing or having to press any additional
buttons to make it happen.

so far i am two for three
the saving the excel sheet as pdf and to a folder works fine.
the saving to a database works fine thanks to you.

The reason to send the pdf file is for the unchangible nature of it.
the email subject line could be blank or the invoice number.
the email is "XXXXX@XXXXXX.XXX"

the worksheet i would like to send is the INVOICE2, since it has only one copy
of the invoice on it.

thanks,

how about the pdf as an attachment, look at the following code

I can't make it work, maybe you can ???

if not let me know

Private Sub SendEmail()

Dim olApp As Outlook.Application
Dim myNameSp As Outlook.Namespace
Dim myInbox As Outlook.MAPIFolder
Dim myExplorer As Outlook.Explorer
Dim NewMail As Outlook.MailItem
Dim OutOpen As Boolean

' Check to see if there's an explorer window open
' If not then open up a new one info line only
OutOpen = True
Set myExplorer = olApp.ActiveExplorer
If TypeName(myExplorer) = "Nothing" Then
OutOpen = False
Set myNameSp = olApp.GetNamespace("MAPI")
Set myInbox = myNameSp.GetDefaultFolder(olFolderInbox)
Set myExplorer = myInbox.GetExplorer
End If
myExplorer.Display ' You don't have to show Outlook to use it

' Create a new mail message item. info line only
Set NewMail = olApp.CreateItem(olMailItem)
With NewMail
'.Display ' You don't have to show the e-mail to send it hokey display line only
.Subject = "Look at this!"
.To = "XXXXX@XXXXXX.XXX"
.Body = "new release"
.attachments.add ("c:\documents and settings\compaq_administrator\mydocuments\tow invoices\email\invoice2.pdf")

End With

NewMail.Send
If Not OutOpen Then olApp.Quit

'Release memory.
Set olApp = Nothing
Set myNameSp = Nothing
Set myInbox = Nothing
Set myExplorer = Nothing
Set NewMail = Nothing

End Sub

okay then, go ahead

thanks

I install your macro in module4 , i ran it off my pdfprint macro,
i made sure that outlook is the default e-mail program thru control panel / internet options
but when i run the macro, enternet explorer opens, msn live opens the msn e-mail. the e-mail IS addressed correctly to the recipient but has no attachments and is waiting for me to press "Send"

We were trying to email with attachment and then return to the program, so far its not working unless I've done something wrong.

for some reason when i changed outlook thru the control panel, it did not work,but
when i went thru the motions you described (outlook was already picked so i didn't need to change anything. it worked go figure.

one last question ,,,
everything works, BUT
is there anything to do to stop the outlook security window from popping up, making me
wait 5 seconds, than making me press "yes" to send my email.
anyway to answer yes automatically

thanks,