How to Print the Entire Sheet from Access Point? H... - Qlik Community

Report Inappropriate Content · ‎2011-02-22

Instead of printing individual chart or table from a sheet I want to print the entire Sheet (tab) at one go. Is it possible from Access Point? How to select multiple charts from a sheet and copy them onto an XL sheet or Power point togather?

suniljain · ‎2011-02-23

sub Export_To_XLS_PPT

ActiveDocument.ClearAll True

ActiveDocument.Fields("WORK_YEAR").Select ActiveDocument.Evaluate("Current_Year")
ActiveDocument.Fields("WORK_WEEK").Select ActiveDocument.Evaluate("LastWeek")
ActiveDocument.Fields("WORK_DAY").Select ActiveDocument.Evaluate("LastWeek")

'To Excel Generate
set obj = ActiveDocument.GetSheetObject("CH703")
obj.ExportEx "E:\Qlikview\Prima\PPT\Department_Loadinng.xls",5
set obj = ActiveDocument.GetSheetObject("CH704")
obj.ExportEx "E:\Qlikview\Prima\PPT\Top_5_Project.xls",5
set obj = ActiveDocument.GetSheetObject("CH705")
obj.ExportEx "E:\Qlikview\Prima\PPT\0HrsProject.xls",5

'To PPT Generate

Set PPApp = CreateObject("Powerpoint.Application")

PPApp.Visible = True ' Create a presentation

Set PPPres = PPApp.Presentations.Add

'Slide1 : HSSA Work allocation
Set PPSlide = PPPres.Slides.Add(1, 1)
ActiveDocument.GetSheetObject("CH15").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide2 : HSSA Objectives

Set PPSlide = PPPres.Slides.Add(1, 1)
ActiveDocument.GetSheetObject("CH633").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide3 : Operational Support

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH634").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 4 : Projectwise Contribution

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH635").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 5 : Departmental Details BIa,HR,IT T & HD,ITSM&O,ITS&C,PCO,F&C

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH636").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH638").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH639").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH640").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH641").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH642").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH643").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH644").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 6 : PCO
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH645").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH646").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH647").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 7 : ITSM & O
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH648").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH649").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH650").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 8 : IT S&C
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH651").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH652").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH653").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 9 : Training & Support
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH654").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH656").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH657").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 10 : F&C
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH658").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH659").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH660").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 11 : HR
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH661").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH662").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH663").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 12 : BIA-ABAP
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH664").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH665").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH666").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 13 : BIA-MM
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH667").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH668").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH669").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 14 : BIA-PM
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH670").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH672").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH671").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 15 : BIA-PS
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH673").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH674").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH675").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 16 : BIA-FICO
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH676").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH677").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH678").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 17 : BIA-PP
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH679").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH680").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH681").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 18 : BIA-BW
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH682").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH683").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH684").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 19 : BIA-HR
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH685").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH686").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH687").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 20 : BIA-AUTH
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH688").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH689").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH690").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 21 : BIA-SD
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH691").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH692").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH694").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 22 : BIA-SECRETARY
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH693").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH695").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH696").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 23 : BIA-RMX
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH697").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH699").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH700").CopyBitmapToClipboard
PPSlide.Shapes.Paste

'Slide 24 : BASIC KNOW SAP,.NET
Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH698").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH702").CopyBitmapToClipboard
PPSlide.Shapes.Paste

Set PPSlide = PPPres.Slides.Add(1,1)
ActiveDocument.GetSheetObject("CH701").CopyBitmapToClipboard
PPSlide.Shapes.Paste

PPPres.SaveAs "E:\Qlikview\Prima\PPT\Presentation.ppt"
PPPres.Close
PPApp.Quit

Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing

end sub

Report Inappropriate Content · ‎2011-02-24

I got the error when using this macro.

error ActiveX component can't create object: 'Powerpoint.Application'

sergio · ‎2011-03-04

Hi, you have to change the two combo box on the left of the module editor, select allow system access in both, and try again.

Regards

How to Print the Entire Sheet from Access Point? How to copy multiple objects onto XL or Power point?