VFP show from multi page tiff first page only. If you want extract some page to independently files, you can use class _XFRX_TIFF_WRITER.
This example is for XFRX 20.0.
Extract from first to second page, each page create new file
LOCAL m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags, m.loTIFF
m.lcSource="input.tiff" && Input file
m.lcDestination="output_.tiff" && Output file
m.tnFrom=1 && from page
m.tnTo=2 && to page
m.tnAllEvenOdd=1 && even or odd or all pages
m.liFlags=0 && 1 - Append to existing file, 2 - selected pages to one file
SET PROCEDURE TO xfrx.prg
m.loTIFF=CREATEOBJECT("_XFRX_TIFF_WRITER")
?m.loTIFF.ExtractPage(m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags)
Extract from first to second page, each page create new file, page will add to existing file
LOCAL m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags, m.loTIFF
m.lcSource="input.tiff" && Input file
m.lcDestination="output.tiff" && Output file
m.tnFrom=1 && from page
m.tnTo=2 && to page
m.tnAllEvenOdd=1 && even or odd or all pages
m.liFlags=1 && 1 - Append to existing file, 2 - selected pages to one file
SET PROCEDURE TO xfrx.prg
m.loTIFF=CREATEOBJECT("_XFRX_TIFF_WRITER")
?m.loTIFF.ExtractPage(m.lcSource, m.lcDestination, m.tnFrom
Extract pages 5.,6.,7.,8. and 10, each page create new file
LOCAL m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags, m.loTIFF
m.lcSource="input.tiff" && Input file
m.lcDestination="output_.tiff" && Output file
m.tnFrom="5-8,10" && from page
m.tnTo=0 && to page
m.tnAllEvenOdd=1 && even or odd or all pages
m.liFlags=0 && 1 - Append to existing file, 2 - selected pages to one file
SET PROCEDURE TO xfrx.prg
m.loTIFF=CREATEOBJECT("_XFRX_TIFF_WRITER")
?m.loTIFF.ExtractPage(m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags)
Extract from first to second page, both pages will be in one new file
Simply append mode.
LOCAL m.lcSource, m.lcDestination, m.tnFrom, m.tnTo, m.tnAllEvenOdd, m.liFlags, m.loTIFF
m.lcSource="input.tiff" && Input file
m.lcDestination="output.tiff" && Output file
m.tnFrom=1 && from page
m.tnTo=2 && to page
m.tnAllEvenOdd=1 && even or odd or all pages
m.liFlags=2 && 1 - Append to existing file, 2 - selected pages to one file
SET PROCEDURE TO xfrx.prg
m.loTIFF=CREATEOBJECT("_XFRX_TIFF_WRITER")
?m.loTIFF.ExtractPage(m.lcSource, m.lcDestination, m.tnFrom