Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

VBA+WORD2013+wydruk biezacej(podanie nr storny wydruku)

robert55555 21 Paź 2016 08:14 588 4
  • #1 21 Paź 2016 08:14
    robert55555
    Poziom 7  

    Witam.
    Koledzy i koleżanki mam do was prośbę odnośnie makra WORD 2013.
    chciałbym aby makro drukowało bieżąca stronę (lub zapisana w makro określona do wydruku, np3.). Po wydruku zamykało dokument bez zapisu.

    Pomoże ktoś przerobić makro, które wkleje poniżej:

    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0 4
  • #2 21 Paź 2016 15:31
    Prot
    Poziom 29  

    robert55555 napisał:

    chciałbym aby makro drukowało bieżąca stronę (lub zapisana w makro określona do wydruku, np3.)


    Wystarczy chyba ( :D nie mam Office2013) w linii ActiveDocument.PrintOut wpisać dla bieżącej strony
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod


    lub dla wydruku strony 3:
    Kod: vbscript
    Zaloguj się, aby zobaczyć kod

    0
  • #3 24 Paź 2016 07:27
    robert55555
    Poziom 7  

    Witam. Niestety rozwiązania podane przez kolegę nie spełniają mojego założenia. Wszystkie makra drukują wszystkie strony. Też myślałem nad takimi rozwiązaniami.

    0
  • #5 24 Paź 2016 15:24
    robert55555
    Poziom 7  

    Dzieki postaram ale nie wiem czy poradzę sobie.

    Dodano po 2 [godziny]:

    Udało się.
    Makro drukuje bieżąca strone:

    Sub Makro1()
    Dim CurPg As Integer
    CurPg = Selection.Information(wdActiveEndPageNumber)
    With Dialogs(wdDialogFilePrint)
    .Range = wdPrintRangeOfPages
    .Pages = CurPg
    .Execute
    End With
    '
    End Sub


    Zamykam temat

    0