Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to save file and print document
ok, I need a to try to make a macro to save the active worksheet to m
C: drive with THE filename, (A3) SALES ORDERS more specifically I need to have it save the filename as the content of cell A3 then SALES ORDERS Then I need it to print to worksheet. How do I do this? Thanks in advanc -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to save file and print document
Sub SaveAs()
Dim rngA3 rngA3 = Sheet1.Range("A3").Value ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\" & rngA3 & " Sales orders.xls", FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub Modify sheet name and directory folders as needed. Hope this gets you started, Mike "abxy " wrote in message ... ok, I need a to try to make a macro to save the active worksheet to my C: drive with THE filename, (A3) SALES ORDERS more specifically I need to have it save the filename as the contents of cell A3 then SALES ORDERS Then I need it to print to worksheet. How do I do this? Thanks in advance --- Message posted from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to save file and print document
this will handle a date and text or numbers: changes 1/13/2004 to 1_13_2004
Sub SaveAs() Dim rngA3 rngA3 = Sheet1.Range("A3").Value If IsDate(rngA3) = True Then rngA3 = Replace(rngA3, "/", "_") End If ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\" & rngA3 & " Sales orders.xls", _ FileFormat:=xlNormal _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub "abxy " wrote in message ... What if cell A3 is date? because excel isn't letting me save the file because of cell's date separators(/), I've tried changing the format of the date in the cell, but Excel still interprets the date with / symbols, so i can't save it, becuase windows thinks the /'s are part of a path name --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to automatically save document with cell reference as filena | Excel Discussion (Misc queries) | |||
is it possible to save xls file to a word document like an attachm | Excel Discussion (Misc queries) | |||
'document not saved' for 'save' or 'save as' an EXCEL file | Excel Discussion (Misc queries) | |||
Print Excel to Microsoft Document Image File (MDI) | Excel Discussion (Misc queries) | |||
FILE Save As / FILE Print greyed out in Excel | Excel Programming |