Mapbasic Batch Printing

[Bob]

Hi All,

I need to batch print from MI Pro v 10.5. What I want to do is open a
workspace, then select the first record from a table, have it zoom to
selection, print that layout window to a pdf is prefered(in the code I
was trying to save as jpg), then select next record, zoom, print to
pdf, etc, etc for the entire table.

Here is my code below, which opens the workspace, selects, zooms, but
then I get an error- "Invalid window identifier:3". I can't seem to
get the layout window id, which I believe is the problem.

----------------------------------------------------CODE
BELOW----------------------------------------------------

include "mapbasic.def"
Declare Sub Main
Declare Sub getSelection

Sub Main

Run Application "C:\Data\test.wor"

Dim oRegion As Object,
szPath, szState As String
Dim win_id As Integer
Dim i As Integer
Dim nWin As Integer

nWin = NumWindows()
szPath = "C:\Data\"
oRegion = USA.OBJ
szState = USA.State

Select * From USA
Where Rowid = 1
Into CUR__SELECTED 'NoSelect

Call getSelection
Close Table CUR__SELECTED
For i = 1 to nWin
If WindowInfo(i, WIN_INFO_TYPE) = WIN_LAYOUT Then

Save Window (i) As szPath & "Gridrank" & szState Type "JPEG" Width
8.5 Units "in" Height 11 Units "in" Resolution 120
End if
Next

Close All Interactive
Note "Done With Maps"
End Sub

Sub getSelection
Dim mnumtables As Integer
If SelectionInfo(SEL_INFO_TABLENAME) = "" Then
Note "No Selection..."
Exit Sub
End If
If Not TableInfo(SelectionInfo(SEL_INFO_TABLENAME),TAB_INFO_MAPPABLE)
Then
Note "Selection is not mappable..."
Exit Sub
End If
mnumtables = NumTables()
Select * from Selection Into __seltable
Add Map layer __seltable
Set Map Zoom Entire Layer __seltable
Close Table __seltable
If NumTables() > mnumtables Then
Close Table TableInfo(NumTables(),TAB_INFO_NAME)
End If
End Sub

----------------------------------------------------END
CODE----------------------------------------------------

Any help is appreciated.
Thanks, Bob

[Martin Hodder]

Hi Bob,

Try

Save Window WindowInfo(i, WIN_INFO_WINDOWID) As szPath & "Gridrank" &

szState Type "JPEG" Width
8.5 Units "in" Height 11 Units "in" Resolution 120

Regards

Martin Hodder
Higher Mapping Solutions
www.highermappingsolutions.com

Hi All,

----------------------------------------------------CODE
BELOW----------------------------------------------------

Sub Main

Save Window WindowInfo(i, WIN_INFO_WINDOWID) As

----------------------------------------------------END
CODE----------------------------------------------------

--
You received this message because you are subscribed to the
Google Groups "MapInfo-L" group.To post a message to this group, send
email to mapi...@googlegroups.com
To unsubscribe from this group, go to:
http://groups.google.com/group/mapinfo-l/subscribe?hl=en
For more options, information and links to MapInfo resources (searching
archives, feature requests, to visit our Wiki, visit the Welcome page at
http://groups.google.com/group/mapinfo-l?hl=en

[Bob]

Thanks Martin, that sort of worked, but they were not .jpeg format,
but unrecognized files. I guess I need to use something different
than save window, because what I want is a pdf for each layout for
each record. I've tried the PrintWin PrintWindow statement, but it
isn't working correctly for me.

Thanks,
Bob

On Apr 26, 12:09 am, "Martin Hodder"

[Erin Comparri]

Hi Bob,

Here's bits from a script I wrote a while back that lets a user choose which layout windows he wants to print, and then creates pdfs of each one.

For x = 1 to nWindows
 nWindowID = windowinfo(WindowID(x),WIN_INFO_TYPE)
 If nWindowID = WIN_LAYOUT Then
   ReDim layout_ary(y)
   ReDim layout_name(y)
   layout_ary(y) = x
   layout_name(y) = windowinfo(WindowID(x),WIN_INFO_NAME)
   y = y+1
 End If
Next

...

Do
    z = layout_ary(listnum)
    PrintWin Window WindowID(z)
    listnum = ReadControlValue(2)
  Loop While listnum > 0

It sounds like you could use this for some of your needs.

-Erin

[David Reid]

You might take a look at Bill Thoen's MapBook at http://www.gisnet.com/,
does exactly what you're looking for.

Hth,
David Reid

[Bob]

Bill Thoen's MapBook doesn't create a seperate page for each record in
a table. I want to take, for example, the USA table and create 51
seperate pdf-(AK.pdf, AZ.pdf,AL.pdf, etc), but from a layout window
where there are other layers. I have the follow code below which is
kind of working in that it is saving a seperate file for each record,
but it isn't going through all of the records. It selects the first
record, then selects the fith record and creates all of the files with
the image of the fith record. I don't know why it seems to jump to
that record instead of going through each record based on the rowid.

It seems as though I am very close, but can't figure out a few last
details.
Thanks in advance for your help.
Bob

-------------Start Code---------------------------------

include "mapbasic.def"
Declare Sub Main
Declare Sub getSelection

Sub Main
Run Application "C:\Data\test.wor"

Dim oRegion As Object,
szPath, szState As String

Dim szGrid as String

Dim win_id As Integer
Dim i As Integer
Dim nWin As Integer

nWin = NumWindows()
szPath = "C:\Data\"

Fetch First From USA
Do Until EOT(USA)

oRegion = USA.OBJ
szState = USA.State

szGrid = USA.GridName

Select * From USA
Where Rowid = i + 1

Into CUR__SELECTED 'NoSelect

Call getSelection
Close Table CUR__SELECTED

Set Map Zoom 15 Units "mi"

For i = 1 to nWin
If WindowInfo(i, WIN_INFO_TYPE) = WIN_LAYOUT Then

Save Window WindowInfo(i, WIN_INFO_WINDOWID) As szPath & szGrid &

szState Type "JPEG" Width 8.5 Units "in" Height 11 Units "in"
Resolution 120
End if
Next

Fetch Next From USA
Loop

Close All Interactive
Note "Done With Maps"
End Sub

Sub getSelection
Dim mnumtables As Integer
If SelectionInfo(SEL_INFO_TABLENAME) = "" Then
Note "No Selection..."
Exit Sub
End If
If Not TableInfo(SelectionInfo(SEL_INFO_TABLENAME),TAB_INFO_MAPPABLE)
Then
Note "Selection is not mappable..."
Exit Sub
End If
mnumtables = NumTables()
Select * from Selection Into __seltable
Add Map layer __seltable
Set Map Zoom Entire Layer __seltable
Close Table __seltable
If NumTables() > mnumtables Then
Close Table TableInfo(NumTables(),TAB_INFO_NAME)
End If
End Sub

-----------END CODE---------------------------



On Apr 26, 10:24 am, "David Reid" <dwr...@hiwaay.net> wrote:
> You might take a look at Bill Thoen's MapBook athttp://www.gisnet.com/,

> archives, feature requests, to visit our Wiki, visit the Welcome page athttp://groups.google.com/group/mapinfo-l?hl=en- Hide quoted text -
>
> - Show quoted text -

[Peter Horsbøll Møller]

try to change this part of your code:

       szGrid = USA.GridName

       Select * From USA

             Where Rowid = i + 1

             Into CUR__SELECTED 'NoSelect

To this:

       szGrid = USA.GridName

       nRowID = USA.ROWID

       Select * From USA

             Where Rowid = nRowID

             Into CUR__SELECTED 'NoSelect

And do add the new variable nRowID as Integer when you create your other variables

You use your variable i later on to loop thru the open windows and here it gets set to a different value than you expect.

Peter Horsbøll Møller
Pitney Bowes Business Insight - MapInfo

2011/4/26 Bob <rvder...@gmail.com>

[Bob]

Peter. Thank you, Thank you, Thank you. With your code (and I forgot
to add ".jpg" to actually have a jpg format) it is working great.
Would anyone know how to do the same thing, but save each as a pdf
instead of as a jpg? I couldn't get it to print as a pdf, I don't
know what the trick is to creating pdf's, but I will work with the jpg
images and hopefully be able to combine all jpg images.

Why doesn't something like this, like a mapbook generator, come with
MapInfo Professional?

Thanks again.
Bob

On Apr 26, 12:30 pm, Peter Horsbøll Møller <mapinf...@horsboll-

moller.dk> wrote:
> try to change this part of your code:
>
>        szGrid = USA.GridName
>
>        Select * From USA
>              Where Rowid = i + 1
>              Into CUR__SELECTED 'NoSelect
>
> To this:
>
>        szGrid = USA.GridName
>        nRowID = USA.ROWID
>
>        Select * From USA
>              Where Rowid = nRowID
>              Into CUR__SELECTED 'NoSelect
>
> And do add the new variable nRowID as Integer when you create your other
> variables
> You use your variable i later on to loop thru the open windows and here it
> gets set to a different value than you expect.
>
> Peter Horsbøll Møller
> Pitney Bowes Business Insight - MapInfo
>

> 2011/4/26 Bob <rvderub...@gmail.com>

> > athttp://groups.google.com/group/mapinfo-l?hl=en-Hide quoted text -

[Bill Thoen]

On 4/26/2011 12:54 PM, Bob wrote:
> Bill Thoen's MapBook doesn't create a seperate page for each record in
> a table. I want to take, for example, the USA table and create 51
> seperate pdf-(AK.pdf, AZ.pdf,AL.pdf, etc), but from a layout window
> where there are other layers.

Actually, that's pretty much what MapBook does. You set up a grid, which
defines the pages (one page per grid cell) and use whatever background
layers you like and let it rip. Ecah grid cell gets its own page. For
the job you describe, If you want to make separate sheets of each state,
you can use irregularly spaced cells. The only caveat is that for any
particular "run" each map has to be the same scale. But when you're
building an atlas you don't usually want hundreds of different scales.
So what I do in cases where the targets don't fit neatly into the same
scale, but I still need each state at full extent on each page, is this.
I pick not more than three scales and place appropriately-sized cell
frames centered on each state so that states like Alaska, Texas,
California, etc. fit on the small scale, the Heartland states fit on the
medium-scale, and small state fit on the large scale. Then I do three
"runs" to print them.

So I don't understand what you mean by "doesn't create a seperate page
for each record". I've printed map series as large as 4000+ pdf pages
with it (all the railraod crossings with roads that are within 2 miles
of a cell tower, at 1:10,000 scale with an automatically generated title
and a score. Also used about 6 background layers that I have at a
national scale so th epages would look consistent. I made the irregular
grid using MapInfo SQL to create center points, and used the 2-mile
radius circle to create the irregular grid of round cells.

If you could explain what you are referring to that it won't do for the
application you're describing I'd appreciate knowing. It isn't
everything for everybody, and it was originally designed to build run
books for a local Fire Dept, but I think it do what you describe,
although you may find the experience of doing your own programming more
satisfying than paying about half-day to a day's salary to buy it.

BTW, the problem you're having with your code is that you're Fetching on
a table on which you're also firing off an SQL select on the same named
table in between, so you're losing track of your row pointer and that's
why you're getting random pages.

- Bill Thoen

MapBook download Free trial
http://www.gisnet.com/catalog/software/tools/MapBook/index.php

[Zery]

On Wed, Apr 27, 2011 at 3:29 AM, Bob <rvder...@gmail.com> wrote:

Peter.  Thank you, Thank you, Thank you.  With your code (and I forgot
to add ".jpg" to actually have a jpg format) it is working great.
Would anyone know how to do the same thing, but save each as a pdf
instead of as a jpg?  I couldn't get it to print as a pdf, I don't
know what the trick is to creating pdf's, but I will work with the jpg
images and hopefully be able to combine all jpg images.

Hi, you could try to use PrintWin command, i have seen someone code before that managed to print to a pdf (eventhough the person didn't use MapInfo PDF driver, but other PDF printer). The code involves reading registry value, but i think someone here can provide a better solution to print to pdf without touching a registry. And don't forget to add "waiting printing procedure" so that when you loop your prints it doesnt stack on the printer command.

The codes look like :
Set Window nWin Printer Name "yourpdf_printer_name" Orientation Portrait iPaperSize nPaperSize
PrintWin Window nWin
Call WaitPrint(5)

Regards,
Zery

[SCISOFT]

How can I simply detect if a particular MBX is installed? I'm particularly
interested in doing this externally, ie so-called integrated mapping - but
also programmatically with MapBASIC.

Ian Thomas
Scientific Software

[Tony Pilkington]

If the mbx has globals declared, look at the example in Map Basic for
detecting (and changing) global variables. The byproduct is a list of mbxs.

> --
> You received this message because you are subscribed to the
> Google Groups "MapInfo-L" group.To post a message to this group, send
> email to mapi...@googlegroups.com
> To unsubscribe from this group, go to:
> http://groups.google.com/group/mapinfo-l/subscribe?hl=en
> For more options, information and links to MapInfo resources (searching
> archives, feature requests, to visit our Wiki, visit the Welcome page at
> http://groups.google.com/group/mapinfo-l?hl=en
>
>

> -----
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 10.0.1321 / Virus Database: 1500/3597 - Release Date: 04/25/11
>

[SCISOFT]

That sounds like just what I need, but I can't locate that, Tony. What's its
name?

Ian Thomas
Scientific Software

-----Original Message-----
From: mapi...@googlegroups.com [mailto:mapi...@googlegroups.com] On

[Peter Horsbøll Møller]

Ian,

This will give you a string with the currently running applications within MapInfo Pro:

Dim nChan as integer, sTopics As String

nChan = DDEInitiate("MAPINFO", "SYSTEM")

sTopics = DDERequest$( nChan, "Topics")

Print "Running apps: " + sTopics 

Peter Horsbøll Møller
Pitney Bowes Business Insight - MapInfo

2011/4/27 SCISOFT <geosc...@iinet.net.au>

[SCISOFT]

Thx Peter – I was thinking about DDE so will give that a burl right now.

I’m really only interested in MBX that I write myself, but it occurs to me that there are other tools run as DLLs and EXE (“within” MI) – do I see them, too?

Ian Thomas
Scientific Software

 

---

[Tony Pilkington]

\SAMPLES\MAPBASIC\APPINFO\appinfo.mb will get you there. Peter's code will
provide the basic list.

> Version: 10.0.1321 / Virus Database: 1500/3599 - Release Date: 04/26/11
>

[SCISOFT]

Ta - found it buried there

[allan.c...@aurecongroup.com]

Hi All

further to the discussion, I am trying to batch print a single layout in each of several workspaces

process is:

 

for n workspaces

   open the workspace

   find the layout - there is only one

   print to PDF

   close all

loop

 

My print statements look like:

      Set Window FrontWindow( ) Printer Name "MapInfo PDF Printer Version 11.0"

      PrintWin Window FrontWindow( ) File pname Overwrite

 

easy !!!!   and it works, producing PDF at about 4Mb

 

BUT

 

experience has shown that Adobe PDF tends to produce the best quality outputs at smallest file size - the ideal combination

If I open the Workspace in MapInfo and print using the Adobe PDF printer driver, file size is about 800k

but if I

     Set Window FrontWindow( ) Printer Name "Adobe PDF"

Boom - 700Mb pdf file

 

I don't understand why printing from MapInfo and via a MapBasic script produces  different files sizes (yes - file sizes are different for the MapInfo PDF Printer, but not by much)

 

Appreciate any feedback on this

Cheers

[Glen O]

    if you have adobe writer on your machine set it to the default printer set the options you want and just print to default printer

 

mapinfo pdf is not the same as adobe writer

 

you can install pdflite and also print but you going to have to read the documentation on how to name the file and the print call 

[allan.c...@aurecongroup.com]

Thanks Glen

yes, understand the mapinfo pdf vs adobe pdf differences, and agree with your suggestion about setting up a default printer... but it just doesn't seem to work that way:

when I Print to Adobe PDF from Mapinfo I get one result

when I PrintWin to Adobe PDF via a MapBasic script (ie same printer), I get a different result

it doesn't seem to matter which PDF engine I use, printing in MapInfo and MapBasic give different results....  and that ain't right !

Will try, as you suggest, other Print Engines, but PrintWin can only access a fraction of the available PDF "settings" (eg you can't control PDF resolution from MapBasic), so I am concerned that there are default settings hidden in the bowels of MapBasic that over-ride the print settings in the printer, resulting in the differences

Cheers

Al

[Peter Horsbøll Møller]

Allan

What happens if you run your MapBasic print statements from the MapBasic window?

And do you by any chance change any printer setting when printing manually?

You can try to check the Adobe Printer setting thru Start > Deviced & Printers. If you make changes to the Adobe printer this way they should be sticky and affect all clients

Peter Horsbøll Møller

Pitney Bowes Software

---

Date: Wed, 26 Feb 2014 22:54:15 -0800
From: allan.c...@aurecongroup.com
To: mapi...@googlegroups.com

Subject: [MI-L] Re: Mapbasic Batch Printing

[Mats Elfström]

Hi!

Opening a sequence of workspaces seems to be an awfully convoluted way of doing this (I assume all maps have the same style and content).

I a similar situation, I made my Mapbasic program cycle through a table of viewpoints, printing one map after another. Attributes on the viewpoints were used for dynamic text on each sheet. This was before MI Pro had its own pdf engine, so I used pdf creator from pdfforge which could be tuned to print all sheets as pages in a combined pdf file.

HTH Mats.E

--

--
You received this message because you are subscribed to the
Google Groups "MapInfo-L" group.To post a message to this group, send
email to mapi...@googlegroups.com
To unsubscribe from this group, go to:
http://groups.google.com/group/mapinfo-l/subscribe?hl=en
For more options, information and links to MapInfo resources (searching
archives, feature requests, to visit our Wiki, visit the Welcome page at
http://groups.google.com/group/mapinfo-l?hl=en
 
---
You received this message because you are subscribed to the Google Groups "MapInfo-L" group.

To unsubscribe from this group and stop receiving emails from it, send an email to mapinfo-l+...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

--
______________________________________________
Mats Elfström, Väpplingvägen 21, SE-227 38 LUND, Sweden
tel: +46 46 145959 / mob: +46 70 595 39 35
alt e-mail: mats.e...@telia.com

[allan.c...@aurecongroup.com]

Hi Peter

I get the same result whether I execute the MapBasic script using "Projetc/Run" in MapBasic or "Tools/Run MapBasic Program" in Mapinfo

as for defaults, have tried the following:

- I have stripped out all the "Set Window FrontWindow() Printer ..." statements from the workspace file using a text editor

- load the workspace in mapinfo

- File/Print... Adobe Printer is already selected as the default printer, I don't touch anything else - just hit OK  --> 800kb pdf file

- remove the "Set Window FrontWindow() Printer ..." statement from the MapBasic script, all that I have left is:

Set Window WindowID(i) Front

PrintWin Window FrontWindow( ) File "output.pdf" Overwrite

- run the script in MapInfo or from MapBasic, and out pops the 700Mb pdf file

Interestingly, the 700Mb file header refers to           %!PS-Adobe-3.0

whereas the 800kb refers to             %PDF-1.5

Am at a loss as to why Postscript is being called up - it doesn't appear to be anywhere in the default printer settings

Cheers

Allan

[allan.c...@aurecongroup.com]

Hi Mats

Our document control harks back to some earlier thinking where each figure set was held within its own workspace - not saying this is the best - just the way it is :)

But inevitably the themes and viewpoints are different for each map. typically we will have up to a dozen themes over 10-20 viewpoints (or more), and with multiple contributors to the mapping sequence, separate workspaces adds an extra level of document control

I will have a look at pdfforge as another pdf engine to try

Cheers

Al

[Andrew Harfoot]

Hi Allan,

Is it possible that by including the 'File' parameter in the PrintWin command, you are telling MapInfo to print to file (which equates to sending the raw printer commands to a file rather than the printer)? This is different to printing to a PDF printer that would then take the commands and use them to build a PDF file. This might explain why Postscript is being referred to in the header for the MapBasic derived file.

Try running the Printwin command without the File parameter and see what happens. I think you can configure most PDF printers to place the output in a default directory, and in my experience the name of the PDF produced is normally the title of the layout window, which you can update before printing using the Set Window command.

Cheers,

Andy

--

--
You received this message because you are subscribed to the
Google Groups "MapInfo-L" group.To post a message to this group, send
email to mapi...@googlegroups.com
To unsubscribe from this group, go to:
http://groups.google.com/group/mapinfo-l/subscribe?hl=en
For more options, information and links to MapInfo resources (searching
archives, feature requests, to visit our Wiki, visit the Welcome page at
http://groups.google.com/group/mapinfo-l?hl=en
 
---
You received this message because you are subscribed to the Google Groups "MapInfo-L" group.
To unsubscribe from this group and stop receiving emails from it, send an email to mapinfo-l+...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.

-- 
Andy Harfoot

GeoData Institute
University of Southampton
Southampton
SO17 1BJ

Tel:  +44 (0)23 8059 2719
Fax:  +44 (0)23 8059 2849

www.geodata.soton.ac.uk

[allan.c...@aurecongroup.com]

Thanks Andy

I have removed the "file" parameter from the PrintWin and the output now goes to the a 800kb file

As you suggest, the "file" parameter appears to invoke the "Print to File" checkbox flag

One problem solved - well done to you !

Unfortunately, now I get asked to provide the pdf output file name during the script execution

previously I had

      PrintWin Window FrontWindow( ) File pdfname Overwrite

where "pdfname" was a variable set with reference to the workspace  (file01.wor --> file01.pdf)

And the whole point was to automate the pdf printing    (my current "challenge" is to pdf the layout in 78 different workspaces to separate pdf files)

So, how do I identify the pdf output file, without using the Print-to-File parameter in the PrintWin statement

Cheers

Allan

[allan.c...@aurecongroup.com]

To All

Thanks for your assistance

With all your help and advice, a solution has been found

Have revised the default settings in Adobe PDF to sidestep the "Prompt for Filename"

include a statement in script to change the name of the Layout window via "Set Window Title xxx.pdf"

PrintWin then sends the Layout to the Adobe PDF driver, and the output is written as an 800kb file

batch printing success :)

Cheers

Al

 to the pdf file name and 

[femeena p-v]

Hi all,

I just went through this post recently. I am doing batch printing of my layout window by changing the map view everytime. But, PrintWin command does not work for me. I am using CutePDF writer. When I am trying to print it otherwise using File-print option, it works. But, using the Printwin Window File "Filename" overwrite command , the pdf prints, but doesn't open in adobe reader.  it says, "damaged or repaired file". Any help is highly appreciated.