{{tag>category:"OpenInsight 32-Bit" author:"Jim Vaughan" author:"Barry Stevens" author:"Richard Bright"}}

[[https://www.revelation.com/the-works|Join The Works program to have access to the most current content, and to be able to ask questions and get answers from Revelation staff and the Revelation community]]


==== Print jpg (OpenInsight 32-Bit) ====
=== At 18 APR 2008 03:39:04PM Jim Vaughan wrote: ===
 
 
<QUOTE>
Will the following code print a jpg (needless to say it doesn't work on my machine), or do I need to do something else?




<code>
  JpgName="C:\jim.jpg" 
  [/color]Stat=Set_Printer([/color]"INIT"[/color])  
  Stat=Set_Printer([/color]"BMP"[/color], JpgName, [/color]0[/color]:[/color]@FM[/color]:[/color]0[/color], [/color]0[/color], [/color]1[/color])  
  Stat=Set_Printer([/color]"TERM"[/color])  
[/color][/color][/size]         
               
</code>

</QUOTE>
----

=== At 18 APR 2008 03:50PM Jim Vaughan wrote:  ===

<QUOTE>OK, talking to myself again...



I have that working I needed a third parameter of 1 (do not scale). 



But that brings up a question is it possible to get the maximum size of the printable area for a printer so that I can get a jpg to fit as big as possible on a piece of paper?

</QUOTE>

----

=== At 18 APR 2008 08:36PM Barry Stevens wrote:  ===

<QUOTE>have you looked at get_printer("PAGESIZE")

</QUOTE>

----

=== At 18 APR 2008 08:59PM Jim Vaughan wrote:  ===

<QUOTE>... no but I will. 



Thank you for the help. 

</QUOTE>

----

=== At 19 APR 2008 09:50PM Richard Bright wrote:  ===

<QUOTE>Jim,

You may wish to look at some scaling system eg



LinePos=Get_Printer("POS") 

 

stat=Set_Printer("CALCBMP", ImPath)

size=Get_Printer("CALCBMP") ;* get the size

bmpWidth =size ;* width

bmpHeight=size ;* height

factor=60

NoScale=False$

Repeat =False$

* Now Scale to x x y - divide all by bpwidth multipy by factor

bmpHeight=bmpHeight * factor / bmpWidth

bmpWidth =bmpWidth * factor / bmpWidth

stat=Set_Printer("BMP",ImPath,30.0:@fm:LinePos:@fm:bmpWidth:@fm:bmpHeight, NoScale, Repeat)

              

stat=Set_Printer("POS",0:@fm:LinePos + bmpHeight + 2) 

</QUOTE>

----

=== At 20 APR 2008 01:45PM Jim Vaughan wrote:  ===

<QUOTE>Thanks Richard I'll take a look at that code. 

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=WORKS_READ&SUMMARY=1&KEY=0C7513312528B4668525742F006BF297|View this thread on the Works forum...]]