![]() |
#1
|
|||
|
|||
![]() Hello, I am working on a project for a children's museum and am creating a game with PowerPoint where the kids have to answer questions correctly to get to the next slide to finish a story. at the end i would like the kids to receive a sticker as a reward. can i add a button at the end of the presentation the kids could press that would cause, say a label printer, to print a sticker. Could this be done with a macro? If it is possible I may be able to get someone in our IT department to help with that. This will be done with a tablet running PowerPoint 2010 and connected to a Brother QL 700 label printer via USB. This will all be built into a kiosk. Thank you for your help and suggestions |
#2
|
|||
|
|||
![]()
This might get you started. Prints the current slide to the default printer
Sub printme() Dim curr As Long curr = SlideShowWindows(1).View.CurrentShowPosition With ActivePresentation.PrintOptions .RangeType = ppPrintSlideRange .OutputType = ppPrintOutputSlides .Ranges.ClearAll .Ranges.Add Start:=curr, End:=curr End With ActivePresentation.PrintOut End Sub |
#3
|
|||
|
|||
![]()
thanks for the help, that should get me going in the right direction
|
#4
|
|||
|
|||
![]()
that works, now all in need to do if figure out how to make it print a specific picture saved on the computer instead of the current slide.
|
#5
|
|||
|
|||
![]()
Would it work if the code created a slide with just that picture full slide size and then printed that slide only (maybe then deleting it)??
|
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Range(Cell1,Cell2) Error on another workbook controlling some other workbook? | tinfanide | Excel Programming | 1 | 02-09-2012 04:08 PM |
Controlling search option in word | suvvi | Word | 0 | 08-05-2011 06:10 AM |
Controlling Style when a user pastes into a form | Cris0205 | Word | 0 | 08-05-2010 04:33 PM |
Internet Explorer is Controlling Fonts on Incoming Emails!? | Tad_R | Outlook | 0 | 10-07-2007 12:11 PM |
Business plan maker | unknowngiver | Office | 6 | 06-06-2005 04:25 PM |