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
