Macro to print a specific report

I’m still not sure Base is the answer for you. If all you are trying to accomplish is to print an estimate, then using a template in Writer may be a better choice. There are many available on the Internet.

Your example leads one to believe you have little or no experience with databases. Base is just an interface to send and/or receive data stored in a database (in your case embedded HSQLDB). Writer, Calc, Report Builder and many other applications can access data from a database, format the information and then print it provided a mechanism is in place to disperse exactly what is desired.

What you are attempting to do can be done, but it starts with a database design. You have an address table but where is the patient address stored? How will the name be stored – First/Last Name – what about duplicates? And the procedures, how are they saved and priced. Where are the relations between tables? These items are just the tip of the iceberg.

Again, you have not disclosed any information other than wanting to print what is on the form (use a template in Writer).

I am happy to help get you going in the right direction but at this point I’m not sure what your destination is.

Thank you for some much needed information.

Although not the best approach I have made a few minor changes to accommodate your wishes. There are no macros involved.
Your problem has to do with what information is presented for printing.

1 – On form Preventivo_Scheda there was no assurance the record displayed was saved. A navigation bar was added for this. The Stampa checkbox was set to Tristate = Yes this was changed to No and Input required was changed from Yes to No.

2 – Query Scheda Preventivi was changed only to add Stampa flag – select record if ON.

OK. With only those changes, if you want to print the record displayed on Preventivo_Scheda, turn on Stampa, save the record and then run report SchedaPreventivi. Correct record appears.

The way this is set up, only one record may be printed at a time – the first one with a Stampa ON. After printing, go back and turn Stampa OFF, then save the record. Now you can set another record for printing.

Some points which may be of interest –

All of the Rubica information displayed on the form is not necessary to accomplish this task. That information is gathered in the Query.

A better way to do this would be to allow multiple records with Stampa On, use Report Builder to print all records, then clear the Stampa On flag with a SQL statement.

Your code to open/close forms is repetitive and has some unnecessary lines. This can be changed as follows:

Replace this:

Sub ApriPrimaNota
    Dim InteractionHandler As Object
    InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
    ThisDatabaseDocument.CurrentController.connect("","")
    ThisDatabaseDocument.FormDocuments.getByName ( "PrimaNota" ).open                 ' ( "Nome del formulario da aprire" )
    ThisComponent.CurrentController.Frame.close(True)                            ' Chiude il formulario corrente
    End Sub

With This:

Sub ApriPrimaNota
       FormChange("PrimaNota")
End Sub

Which Calls This routine:

SUB FormChange( sFormName )

	Dim ObjTypeWhat
	Dim ObjName As String
	Dim sName as String
	Dim sTitle As String
	Dim iStart As Integer
	sTitle = ThisComponent.Title
	iStart = Instr(sTitle,":") + 2
	sName = Mid(sTitle, iStart)
	ObjName = sFormName
	ThisDatabaseDocument.FormDocuments.getbyname( sName ).close
	ObjTypeWhat = com.sun.star.sdb.application.DatabaseObject.FORM
	If ThisDatabaseDocument.FormDocuments.hasbyname(ObjName) Then 'Check the form exists
		ThisDataBaseDocument.CurrentController.Connect() 'If the form exists connect to the database
		ThisDatabaseDocument.CurrentController.loadComponent(ObjTypeWhat, ObjName, FALSE) 'Open the form
	Else
		MsgBox "Error! Wrong form name used. "+chr(10)+"Form Name = " & ObjName
	End if
End Sub

The routine FormChange will open the form named in the parameter sent to it and close the currently opened form.

I hope this sets you in the direction you wish.

Also, in future posts, please do not send samples with ‘live’ or ‘confidential’ data. While the more information provided is extremely helpful, always use TEST data.

I have sent back a file with the tables deleted. The only items you need to look at are the Preventivo_Scheda form and the Scheda Preventivi query.