Power Point - jak wstawić przycisk drukuj w prezentacji.
tata41 - 11 Cze 2007 14:46
Chcę przygotować prezentację, w której zamierzam umieścić obrazki kolorowani.
Chciałbym aby podczas prezentacji można było wydrukować oglądany obrazek przy pomocy przycisku drukuj. Jak to zrobić, może wiecie gdzie taką przykładową prezentację można pobrać.
Pozdrawiam.
seta1 - 15 Cze 2007 01:34
Witam
Jeden ze sposobów:
z menu "narzędzia" wybierz "makro" następnie "zarejestruj nowe makro", wyświetli się okienko i poprosi o nazwę wpisz nazwę -drukuj- i kliknij "OK" kiedy rozpocznie się rejestrowania makra wykonaj takie ruchy jak byś chciał wydrukować bieżący slajd, czyli kliknij menu "plik" potem "drukuj" w opcjach zaznacz drukuj bieżącą stronę i kliknij "OK", wtedy wydrukuje się bieżący slajd, teraz zakończ rejestrowanie makra.
Następnie sam przyciski:
z menu "widok" wybierz "paski narzędzi" potem "przybornik formantów" otworzy się pasek i wybierz przycisk polecenia, wstaw ten przycisk na slajdzie, i już masz przycisk.
Kolejny krok:
kliknij prawym przyciskiem myszki na wstawionym przycisku i z menu podręcznego wybierz "wyświetl kod programu" otworzy się edytor kodu, tu gdzie stoi kursor wklej zawartość wcześniej zarejestrowanego makra -drukuj-.
Powodzenia, jeśli jest coś niejasne to pisz
tata41 - 15 Cze 2007 07:33
Serdeczne dzięki w podobny sposób próbowałem, ale mam pytania:
Niżej podaję tekst makra, które w podany wyżej sposób zarejestrowałem, ale nie wiem co mam zmienić żeby makro drukowało na dowolnej drukarce (domyślnej na innym PC), tak zarejestrowane drukuje tylko na "Marek HP DeskJet 1220C Printer".
Czy można jakoś wyłączyć drukowanie przycisków, chodzi o to by wydrukował się jedynie obrazek.
Sub Makro4()
'
' Makro zarejestrowane przez ...
'
With ActivePresentation.PrintOptions
.RangeType = ppPrintCurrent
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputSlides
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintColor
.FitToPage = msoFalse
.FrameSlides = msoFalse
.ActivePrinter = "Marek HP DeskJet 1220C Printer"
End With
ActivePresentation.PrintOut
End Sub
Ps. Dla korzystających z opisu musicie pamiętać żeby w opcjach PowerPoint włączyć zabezpieczenie makr na poziom średni, wtedy będzie pytać przed uruchomieniem czy włączyć makro. Inaczej makro nie będą działać przy ponownym uruchomieniu ponieważ standartowo włączony poziom wyłącza makra automatycznie nawet nie informuje, że są.
seta1 - 17 Cze 2007 23:00
Aby się nie drukował przycisk dodaj taką linię na początku kodu: CommandButton1.Visible = False i na końcu kodu CommandButton1.Visible = True
jeśli nie zmieniałeś nazwy przycisku i jest domyślna nazwa -CommandButton1- jeśli zmieniałeś to podstaw odpowiednią nazwę.
Co do drukarki domyślnej to da się zrobić ale trzeba zaczekać na bardziej biegłych w tym temacie
tata41 - 18 Cze 2007 12:23
Dziękuję za odpowiedź to teraz jeszcze tylko muszę sie dowiedzieć jak drukować na dowolnym PC z drukarki domyślnej.
seta1 - 18 Cze 2007 19:56
wypróbuj usunąć tą całą linię: .ActivePrinter = "Marek HP DeskJet 1220C Printer"
Mi się udało wydrukować bez tej linii, ale nie mam innego komputera z inną drukarką i sprawdzenie pozostawiam Tobie