printreport

[Robrecht]

Hi

I'm using following code to print a report.

On Error Resume Next
Dim rsetiket As ADODB.Recordset
Dim conn As ADODB.Connectio n

Set conn = New ADODB.Connectio n
Set rsetiket = New ADODB.Recordset

If DataEnvironment 1.rsetiket.Stat e = 1 Then
DataEnvironment 1.rsetiket.Clos e
End If

conn.Open cnn
rptetiket.Print Report False


strsql = "DELETE * FROM tbletiket"
rsetiket.Open strsql, conn, adOpenDynamic, adLockOptimisti c

I would like to program the default tray of wich it should print.

greetz
Robrecht