[Solved] Print multiple copies dBase

[christos73]

Hello,

I've installed Invoice_Forms_v2.odb from:
[Example] Invoice Forms (without macros)

and i need to print 2 copies each time when i print. But without using the printer options (number of copies).

Thanks and bye!

[Villeroy]

print 2 copies of what?

[christos73]

to be printed 2 times the same page.

maybe with macro(CopyCount) ?

[Villeroy]

I don't know any macro "CopyCount". 2 times which page? What is a "page" in the database you have linked?

[christos73]

I want to make a button in calc so when i press it 'll print my sheet 2 times without doing it manually from Print 'Number of copies"
Forcing it to print 2 copies with one click.

[Villeroy]

Import the record set in question 2 times into Calc.

[UnklDonald418]

Chapter 13 of Andrew Pitonyak's book “OpenOffice.org Macros Explained” includes a discussion of writing macro code to print Writer documents as well as Calc documents.
Chapter 5 of his download “Useful Macro Information” has a section named “Print Current Document”
both can be downloaded from
http://www.pitonyak.org/oo.php
You should also be aware that a Base form is actually a Writer document.

[christos73]

Found it.

Code: Select all

REM  *****  BASIC  *****
Sub printDocOnce
   DIM oDoc   
   oDoc = ThisComponent

   REM Set backgroundImage-option to False
   DIM oSettings
   oSettings = oDoc.createInstance("com.sun.star.text.DocumentSettings")
  rem oSettings.PrintPageBackground = False

   REM Set printOptions
   DIM mPrintOpts(2) AS NEW com.sun.star.beans.PropertyValue
   mPrintOpts(0).Name = "CopyCount"
   mPrintOpts(0).Value = 1
   mPrintOpts(1).Name = "Collate"
   mPrintOpts(1).Value = True

   REM Print
   oDoc.Print(mPrintOpts())

   REM Set backgroundImage-option back to True
   rem oSettings.PrintPageBackground = True
   REM Do a 0-print to set the option   
   DIM mPrintOpts2(0) AS NEW com.sun.star.beans.PropertyValue
   mPrintOpts2(0).Name = "CopyCount"
   mPrintOpts2(0).Value = 0
   oDoc.Print(mPrintOpts2())
End Sub

Import the record set? how?