Dear Prabhu,
Please try through below Code.
Sub OnlyforActivesheet()
On Error Resume Next
sh = ActiveSheet.Name
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="\" & sh &
".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=True
On Error GoTo 0
End Sub
On Thu, Sep 1, 2011
Hi Noor,
It is working.. If i needs to create PDF only for active sheet then how to
change the above VBA code.
Plz help
regards,
Prabhu
--
--
Some important links for excel users:
1. Follow us on TWITTER for ti
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 wrote:
> Dear Sajid,
>
> Please change blue color path as per your system..
> This code is working fine in my sys
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.ExportAsFixedFor