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
