Hi Noorian, How it will automatically save PDF Format in 2003 Version...is it available..
-- *Best Regards,* *Venkat * *Chennai* * * On Tue, Aug 30, 2011 at 2:16 PM, NOORAIN ANSARI <noorain.ans...@gmail.com>wrote: > Dear Sajid, > > Please change blue color path as per your system.. > This code is working fine in my systems.. > *Once again.try..........* > ** > *Private Sub CommandButton1_Click() > Dim wrknm As String > wrknm = ActiveWorkbook.Name > wrknm = Left(wrknm, InStr(1, wrknm, ".") - 1)* > *ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ > "C:\Documents and Settings\Administrator\Desktop\" & wrknm & ".pdf", > Quality:=xlQualityStandard, _ > IncludeDocProperties:=False, IgnorePrintAreas:=False, > OpenAfterPublish:= _ > False > End Sub > > * > > On Tue, Aug 30, 2011 at 2:06 PM, SAJID MEMON <sajidwi...@hotmail.com>wrote: > >> Dear sir, I have copy below code and paste in excel 2003 but it shows >> some error and its not working in my all three systems. I have attached that >> image in my attachment. >> Please co-operate me for accomplish my project. >> awaiting your reply >> >> sajid memon >> >> >> >> >> ------------------------------ >> Date: Mon, 29 Aug 2011 20:01:33 +0530 >> Subject: Re: $$Excel-Macros$$ xls to Pdf in VBA >> From: noorain.ans...@gmail.com >> To: excel-macros@googlegroups.com >> >> Dear KBJ, >> W/S....... >> >> That converter is working fine on my system.. >> >> press alt+F11 and Paste it code in Module and Press F5. >> >> I hope it will work fine.. >> >> Sub exltopdf_converter() >> Dim wrknm As String >> wrknm = ActiveWorkbook.Name >> wrknm = Left(wrknm, InStr(1, wrknm, ".") - 1) >> ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ >> "C:\Documents and Settings\Administrator\Desktop\" & wrknm & >> ".pdf", Quality:=xlQualityStandard, _ >> IncludeDocProperties:=False, IgnorePrintAreas:=False, >> OpenAfterPublish:= _ >> False >> end Sub >> On Mon, Aug 29, 2011 at 3:35 PM, Advocate kbj <msma....@gmail.com> wrote: >> >> dear Noorain Ansari (Assalamulaikum) >> as per your tryit.xls its not working. plz give me detail. >> with advance Happy Eid Mubarak to all. >> >> sajid memon >> >> On Sat, Aug 27, 2011 at 10:14 PM, NOORAIN ANSARI < >> noorain.ans...@gmail.com> wrote: >> >> Dear Sajid, >> >> As per your requirement Please try blow VBA code to Convert Excel file in >> PDF. >> >> Change path as per ur conviniece.. >> See attached sheet........ >> >> *Private Sub CommandButton1_Click() >> Dim wrknm As String >> wrknm = ActiveWorkbook.Name >> wrknm = Left(wrknm, InStr(1, wrknm, ".") - 1)* >> *ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ >> "C:\Documents and Settings\Administrator\Desktop\" & wrknm & >> ".pdf", Quality:=xlQualityStandard, _ >> IncludeDocProperties:=False, IgnorePrintAreas:=False, >> OpenAfterPublish:= _ >> False >> End Sub >> >> * >> Thanks & regards, >> Noorain Ansari >> *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/> >> >> On Sat, Aug 27, 2011 at 4:28 PM, SAJID MEMON <sajidwi...@hotmail.com>wrote: >> >> Dear Experts, >> >> I want an active sheet with command button (EXCEL 2003) convert into pdf >> file. when i click on command button >> it convert and should be open in pdf format. >> Is it possible in excel 2003 version, if Yes then please give me VBA >> code for my query >> >> *i don't want to use any other converter software or online website.* >> ** >> awaiting your positive responce >> >> sajid memon >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> >> >> >> >> -- >> >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> >> >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> >> >> >> >> -- >> Thanks & regards, >> Noorain Ansari >> *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/> >> >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> >> -- >> >> ---------------------------------------------------------------------------------- >> Some important links for excel users: >> 1. Follow us on TWITTER for tips tricks and links : >> http://twitter.com/exceldailytip >> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 >> 3. Excel tutorials at http://www.excel-macros.blogspot.com >> 4. Learn VBA Macros at http://www.quickvba.blogspot.com >> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com >> >> To post to this group, send email to excel-macros@googlegroups.com >> >> <><><><><><><><><><><><><><><><><><><><><><> >> Like our page on facebook , Just follow below link >> http://www.facebook.com/discussexcel >> > > > > -- > Thanks & regards, > Noorain Ansari > *http://noorain-ansari.blogspot.com/*<http://noorain-ansari.blogspot.com/> > > -- > > ---------------------------------------------------------------------------------- > Some important links for excel users: > 1. Follow us on TWITTER for tips tricks and links : > http://twitter.com/exceldailytip > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 > 3. Excel tutorials at http://www.excel-macros.blogspot.com > 4. Learn VBA Macros at http://www.quickvba.blogspot.com > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com > > To post to this group, send email to excel-macros@googlegroups.com > > <><><><><><><><><><><><><><><><><><><><><><> > Like our page on facebook , Just follow below link > http://www.facebook.com/discussexcel > * * * * -- ---------------------------------------------------------------------------------- Some important links for excel users: 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/exceldailytip 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310 3. Excel tutorials at http://www.excel-macros.blogspot.com 4. Learn VBA Macros at http://www.quickvba.blogspot.com 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com To post to this group, send email to excel-macros@googlegroups.com <><><><><><><><><><><><><><><><><><><><><><> Like our page on facebook , Just follow below link http://www.facebook.com/discussexcel