OpenOffice.org Forum at OOoForum.orgThe OpenOffice.org Forum
 
 [Home]   [FAQ]   [Search]   [Memberlist]   [Usergroups]   [Register
 [Profile]   [Log in to check your private messages]   [Log in

print to postscript (not export to eps!!)

 
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Macros and API
View previous topic :: View next topic  
Author Message
egerlach
General User
General User


Joined: 04 Nov 2007
Posts: 11
Location: Germany , Karlsruhe

PostPosted: Mon Jul 14, 2008 2:41 pm    Post subject: print to postscript (not export to eps!!) Reply with quote

Hi,
somebody here who can tell me how to print a document (writer, draw, ..) to as postscript file? - The printer dialog offers "print to file" option. Thats exactly what I want to realise in BASIC code: I press the key F10 an I find a file with a fix filename (e.g. myprint.ps in /tmp/-directory (linux))

BTW: I don't want to export to eps!! .. like demonstrated in that snippet:
http://www.oooforum.org/forum/viewtopic.phtml?t=6769&highlight=postscript+eps

Furthermore I want a code like this:
http://www.oooforum.org/forum/viewtopic.phtml?t=3388&highlight=printer
Code:

'******************************************************************
'Author: Andrew Pitonyak
'email:   andrew@pitonyak.org
Sub PrintCurrentDocument
  Dim mPrintopts1(), x as Variant
  'Dimensioned at 0, if you set any other properties, be certain to set this to a higher value....
  'Dim mPrintopts2(0) As New com.sun.star.beans.PropertyValue
  Dim oDocument As Object, oPrinter As Object

  oDocument = ThisComponent

  '***********************************
  'Do you want to choose a certain printer
 Dim mPrinter(0) As New com.sun.star.beans.PropertyValue
 mPrinter(0).Name="Name"
 mPrinter(0).value="Other printer"     ' insert name of your printer
 oDocument.Printer = mPrinter()

  '***********************************
  'To simply print the document do the following:
oDocument.Print(mPrintopts1())

  '***********************************
 End Sub

adapted to print to /tmp/myprint.ps.

tia
Eckard
Back to top
View user's profile Send private message
DVezina
OOo Advocate
OOo Advocate


Joined: 29 Sep 2006
Posts: 248
Location: Orlando

PostPosted: Wed Jul 16, 2008 11:31 am    Post subject: Reply with quote

To emulate Print to File do this:

Code:

'******************************************************************
'Author: Andrew Pitonyak
'email:   andrew@pitonyak.org
Sub PrintCurrentDocument
  Dim mPrintopts1(), x as Variant
  'Dimensioned at 0, if you set any other properties, be certain to set this to a higher value....
  'Dim mPrintopts2(0) As New com.sun.star.beans.PropertyValue
  Dim oDocument As Object, oPrinter As Object

  oDocument = ThisComponent

  '***********************************
  'Do you want to choose a certain printer
 Dim mPrinter(0) As New com.sun.star.beans.PropertyValue
 mPrinter(0).Name="Name"
 mPrinter(0).value="Adobe PostScript"     ' insert name of your PS printer
 oDocument.Printer = mPrinter()

Dim mPrintopts1(0) As New com.sun.star.beans.PropertyValue
mPrintopts1(0).Name = "FileName"
mPrintopts1(0).Value="c:/filename.ps"

oDocument.Print(mPrintopts1())


End Sub
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Macros and API All times are GMT - 8 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group