here in the export docker said... pages can be exported...
but after hitting the add button it adds only the one page
But how to add all the pages here
PLEASE SOMEONE ANSWER
Hello,
Please clarify the problem.
1. You want export ALL pages of document to single bitmap?
2. You want export ALL pages, but every page in diferent file?
3. You want export SELECTED pages in one bitmap file?
4. You want export SELECTED pages - every page in single bitmap file?
5. One other variant?
Greetings!
OMG. Amazing Reply. I had not expected that. Answer is 2
But all are amazing. Even those are also be needed sometime.
OK
Hello,Variant 2.1.Mey be improvedGreetings!Sub BhBp_Export_pages_as_files()Dim BhBpPage As PageFor Each BhBpPage In ActiveDocument.Pagesx = x + 1BhBpPage.Activate
Dim expflt As ExportFilter Set expflt = ActiveDocument.ExportBitmap(ActiveDocument.FilePath & "BhBp.bg2_COREL_EXPORT" & x & ".jpg", cdrJPEG, cdrCurrentPage, cdrCMYKColorImage, 2419, 3507, 300, 300, cdrNoAntiAliasing, False, False, False, False, cdrCompressionNone) With expflt .Progressive = True .Optimized = True .SubFormat = 0 .Compression = 0 .Smoothing = 0 .Finish End With Next'ActiveDocument.Pages(2).Shapes.All.End Sub
May i know how it works and will it work in coreldraw 2020 version also?
brother, nothing is exported, any help
Not work? But the script is tested. Have any error messages? After starting the script output *.jpg files are in folder where the source *.cdr file is. If Yuo corel file have 5 pages - 5 output files will be generated.
Names are BhBp.bg2_COREL_EXPORT1.cdr......
BhBp.bg2_COREL_EXPORT5.cdr
Macro is tested with CorelDRAW X5, CorelDRAW X3