MobileMobile | Continue

Excel Bar

Excel Bar

Your excel questions will be responsed by our excel experts within 24hrs.Our service is free.

 Forgot Pass?
 Register Now
Find
Hot Search: Vlookup Match VBA
12
Return Post new threads
Author: alaboudy

Save excel work sheet as PDF and as excel

[Copy link]

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-11-2017 23:40:36 | All posts



Why not simply create Folder (Production Reports) and save the today's report with todays date as name of the report like
Sub CreatePDF()
ActiveSheet.Range(your range here).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=your path here like D:\Production Reports\  Format(Date, dd-mm-yyyy)
End Sub









Reply Support Opposition

Props Report

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-11-2017 20:11:52 | All posts



sub creatPDF()
ActiveSheet.Range(Your range here).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    D:\myPDF.pdf, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End subChange path according to yours











Reply Support Opposition

Props Report

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-12-2017 00:26:21 | All posts



Why not simply create Folder (Production Reports) and save the today's report with todays date as name of the report like
Sub CreatePDF()
ActiveSheet.Range(your range here).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=your path here like D:\Production Reports\  Format(Date, dd-mm-yyyy)
End Sub









Reply Support Opposition

Props Report

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-11-2017 21:29:54 | All posts



sub creatPDF()
ActiveSheet.Range(Your range here).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    D:\myPDF.pdf, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End subChange path according to yours











Reply Support Opposition

Props Report

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-12-2017 02:01:46 | All posts



Why not simply create Folder (Production Reports) and save the today's report with todays date as name of the report like
Sub CreatePDF()
ActiveSheet.Range(your range here).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=your path here like D:\Production Reports\  Format(Date, dd-mm-yyyy)
End Sub









Reply Support Opposition

Props Report

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-12-2017 02:53:33 | All posts



sub creatPDF()
ActiveSheet.Range(Your range here).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    D:\myPDF.pdf, Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End subChange path according to yours











Reply Support Opposition

Props Report

11

Topics

130

Posts

283

Integral

Conqueror

Rank: 3Rank: 3

Integral
283
Post on 2-12-2017 08:20:31 | All posts



Why not simply create Folder (Production Reports) and save the today's report with todays date as name of the report like
Sub CreatePDF()
ActiveSheet.Range(your range here).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=your path here like D:\Production Reports\  Format(Date, dd-mm-yyyy)
End Sub









Reply Support Opposition

Props Report

12
Return Post new threads

Points policy of this forum

Archiver|Mobile|Small dark house|Contact us|Excel Bar

GMT-5, 11-20-2017 00:43 , Processed in 4.361825 second(s), 17 queries .

Powered by Discuz! X3

© 2001-2013 Comsenz Inc.

!fastreply! Top !return_list!