Print

Dear friends,

I've got a problem, ... again. I'm working on this application, in wich I need to create an order. On an order, you must see data from several tables out of my database. For example, an order contains information about the company who delivers the goods, about the articles on the order, the delivery address, ... all from different tables.

So I liked to print the screen where I select all this data, but it doesn't looked like I wanted it, when I printed it. So I tried to use rich textboxes and get all this data from all these queries in a rich textboxe, but my lay out really sucked and I couldn't get it good.

The question is: 'How should I work to get my order on paper?' and 'Have you got an example of it somewhere on the net?'

You could use the Data Report.

Are you using this on a computer that has Microsoft Word?

You could just try transfering the items from the database to Word bookmarks. It will keep a really constant look to it. You just have to set up the bookmarks once. Change the extention to dot instead of doc and you have a template that you can use over and over again.

You can then transfer items from several different databases into 1.

Here is an example of what i did. You could adjust it to yours if you want to go that route. Remember to select your references if you want to go that way.

VB Code:

Public Sub printinvoice()
   
   Set objwdapp = New Word.Application
 
   If FrmInvoice.txtinvoicetype.Text = "SI" Then
      Set objwddoc = objwdapp.Documents.Add("\\S2\web\software\invoice\Final\Invoice.dot")
   ElseIf FrmInvoice.txtinvoicetype.Text = "SC" Then
      Set objwddoc = objwdapp.Documents.Add("\\S2\web\software\invoice\Final\CreditNote.dot")
   End If
 
   objwdapp.Visible = False
 
   If FrmInvoice.txtaddress2Sl.Text <> "" And FrmInvoice.txtaddress3sl.Text = "" And FrmInvoice.txtaddress4sl.Text = "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress2Sl.Text
      objwddoc.Bookmarks("Postcode").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress2Sl.Text = "" And FrmInvoice.txtaddress3sl.Text <> "" And FrmInvoice.txtaddress4sl.Text = "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress3sl.Text
      objwddoc.Bookmarks("Address3").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress2Sl.Text = "" And FrmInvoice.txtaddress3sl.Text = "" And FrmInvoice.txtaddress4sl.Text <> "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress4sl.Text
      objwddoc.Bookmarks("Address3").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress3sl.Text <> "" And FrmInvoice.txtaddress3sl.Text <> "" And FrmInvoice.txtaddress4sl.Text = "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress2Sl.Text
      objwddoc.Bookmarks("Address3").Range = FrmInvoice.txtaddress3sl.Text
      objwddoc.Bookmarks("Address4").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress2Sl.Text = "" And FrmInvoice.txtaddress3sl.Text <> "" And FrmInvoice.txtaddress4sl.Text <> "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress3sl.Text
      objwddoc.Bookmarks("Address3").Range = FrmInvoice.txtaddress4sl.Text
      objwddoc.Bookmarks("Address4").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress2Sl.Text <> "" And FrmInvoice.txtaddress3sl.Text = "" And FrmInvoice.txtaddress4sl.Text <> "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress2Sl.Text
      objwddoc.Bookmarks("Address3").Range = FrmInvoice.txtaddress4sl.Text
      objwddoc.Bookmarks("Address4").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress2Sl.Text <> "" And FrmInvoice.txtaddress3sl.Text <> "" And FrmInvoice.txtaddress4sl.Text <> "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress2Sl.Text
      objwddoc.Bookmarks("Address3").Range = FrmInvoice.txtaddress3sl.Text
      objwddoc.Bookmarks("Address4").Range = FrmInvoice.txtaddress4sl.Text
      objwddoc.Bookmarks("Postcode").Range = FrmInvoice.txtPostcode.Text
   ElseIf FrmInvoice.txtaddress2Sl.Text <> "" And FrmInvoice.txtaddress3sl.Text = "" And FrmInvoice.txtaddress4sl.Text = "" Then
      objwddoc.Bookmarks("Address2").Range = FrmInvoice.txtaddress2Sl.Text
      objwddoc.Bookmarks("Postcode").Range = FrmInvoice.txtPostcode.Text
   End If
   'Call wordcheck
 
   objwddoc.Bookmarks("InvoiceNo").Range = FrmInvoice.txtInvoiceNo.Text
   objwddoc.Bookmarks("Date").Range = Format(FrmInvoice.txtDate, "dd mmmm yyyy")
   objwddoc.Bookmarks("CustomerName").Range = FrmInvoice.txtcustomer.Text
   objwddoc.Bookmarks("CompanyName").Range = FrmInvoice.dbnamesl.Text
   objwddoc.Bookmarks("Address1").Range = FrmInvoice.txtaddress1Sl.Text
   objwddoc.Bookmarks("Description1").Range = FrmInvoice.txtDescription1sl.Text
   'Call first5
 
   objwddoc.Bookmarks("Description6").Range = FrmInvoice.txtDescription6sl.Text
   'Call second5
 
 
   objwddoc.Bookmarks("Description11").Range = FrmInvoice.txtDescription10sl.Text
   'Call third5
 
   objwddoc.PrintOut
  Do While objwdapp.BackgroundPrintingStatus > 0
   
      DoEvents
   Loop
    
   objwdapp.Quit (wdDoNotSaveChanges)
   Set objwdapp = Nothing
   FrmInvoice.Refresh
 
End Sub

Change where i have put txtaddress1 etc to something like r![name]

From your recordset.