GoldenLine
Zaloguj się
Dawid Urbaniak

Dawid Urbaniak Architekt, Grafik,
Ilustrator

Temat: Eksport wielu stron do jpg

Hej eksperci.
Właśnie wyrosła przede mną ściana. Mam kilkadziesiąt stron w Corelu i potrzebuje wyeksportować je do jpg, da się zrobić tak aby Corel zrobił ten eksport za jednym razem, czyli zapisał wszystkie strony w oddzielnych jpg z tymi samymi ustawieniami [trochę nie chce mi się exportowa 50 stron „ręcznie”].
pozdrawiam
Link do wypowiedziLink
Andrzej Kidaj

Andrzej Kidaj www.ad3.eu

Temat: Eksport wielu stron do jpg

Wypuść PDFa a potem przy pomocy skryptu w PS zamień na JPGi.
Link do wypowiedziLink
Dawid Urbaniak

Dawid Urbaniak Architekt, Grafik,
Ilustrator

Temat: Eksport wielu stron do jpg

Dzięki ale musze to zrobić bez dodatkowych programów, chyba że jakimś darmowm.
Link do wypowiedziLink

konto usunięte

Temat: Eksport wielu stron do jpg

To może w Corelu? :)
Poniższy skrypt powinien pomóc... Warunkiem jest, że plik z którego ma tworzyć jpgi musi być zapisany w jakimś katalogu, w którym będą tworzone bitmapy.


Sub zapis_jpg()

    Dim i As Long

    Dim liczba_stron As Long

    liczba_stron = ActiveDocument.Pages.Count

    For i = 1 To liczba_stron

        Dim lngSzerokosc As Long

        Dim lngWysokosc As Long

        Dim lngRozmiar As Long

        lngRozmiar = CorelDRAW.CorelScript.GetPageSize(lngWysokosc, lngSzerokosc)

        Dim shpProstokat As Shape

        Set shpProstokat = ActiveLayer.CreateRectangle(0#, CDbl(Round(lngSzerokosc / 254000, 6)), CDbl(Round(lngWysokosc / 254000, 6)), 0#)

        shpProstokat.Fill.ApplyNoFill

        shpProstokat.Outline.SetNoOutline

        Dim OrigSelection As ShapeRange

        Set OrigSelection = ActiveSelectionRange

        OrigSelection.OrderToBack

        Dim expflt As ExportFilter

        Set expflt = ActiveDocument.ExportBitmap(FilePath & "Strona" & i & ".jpg", cdrJPEG, cdrCurrentPage, cdrRGBColorImage, 1061, 1500, 300, 300, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)

        With expflt

            .Progressive = False

            .Optimized = False

            .SubFormat = 0

            .Compression = 10

            .Smoothing = 10

            .Finish

        End With

        If i <> liczba_stron Then

            ActiveDocument.Pages(i + 1).Activate

        End If

        shpProstokat.Delete

    Next

End Sub
Link do wypowiedziLink
Dawid Urbaniak

Dawid Urbaniak Architekt, Grafik,
Ilustrator

Temat: Eksport wielu stron do jpg

hej, zaraz wypróbuje
Link do wypowiedziLink
Dariusz Krawczyk

Dariusz Krawczyk specjalista,
Hutnicza Izba
Przemysłowo-Handlowa

Temat: Eksport wielu stron do jpg

Możesz jeszcze uzyć programu PDF Creator instaluje się jako wirtualna drukarka i wypuszcza wydruk jako pdf, jpeg, bmp, png, tiff czy w ostatniej wersji nawet svg i jeżeli wydruk jest wielostronnicowy to każdą strone drukuje przy jpegu do osobnego plikuDariusz Krawczyk edytował(a) ten post dnia 06.06.09 o godzinie 20:16
Link do wypowiedziLink
Łukasz Maj

Łukasz Maj Grafik DTP/grafik
komputerowy

Temat: Eksport wielu stron do jpg

albo programem doPdf
Link do wypowiedziLink
Dawid Urbaniak

Dawid Urbaniak Architekt, Grafik,
Ilustrator

Temat: Eksport wielu stron do jpg

ciekawe z tym PDFcreatorem, musze mieć jakiegoś starego bo robi tylko pdfy.
Link do wypowiedziLink

konto usunięte

Temat: Eksport wielu stron do jpg

może primopdf do drukowania na pdf

natomiast w konwersji pdf-jpg jpg-pdf może pomóc xnview
Link do wypowiedziLink
Dawid Urbaniak

Dawid Urbaniak Architekt, Grafik,
Ilustrator

Temat: Eksport wielu stron do jpg

Panie Krzysztofie, chodziło o bezpośredni eksport z corela do jpg wielu stron. Czy primopdf jest w stanie to zrobić?
Link do wypowiedziLink
Dariusz Krawczyk

Dariusz Krawczyk specjalista,
Hutnicza Izba
Przemysłowo-Handlowa

Temat: Eksport wielu stron do jpg

pdfcreator eksport do jpg czy png ma od dawna tylko podczas zapisywania pliku trzeba zmienić na format w jakim ma to być zapisane bo domyślnie jest pdf
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

X6 - eksport jpg




Wyślij zaproszenie do
Anuluj