Hi   
      
   I'm using following code to print a report.   
      
   On Error Resume Next   
   Dim rsetiket As ADODB.Recordset   
   Dim conn As ADODB.Connection   
      
   Set conn = New ADODB.Connection   
   Set rsetiket = New ADODB.Recordset   
      
       If DataEnvironment1.rsetiket.State = 1 Then   
           DataEnvironment1.rsetiket.Close   
       End If   
      
       conn.Open cnn   
       rptetiket.PrintReport False   
      
      
       strsql = "DELETE * FROM tbletiket"   
       rsetiket.Open strsql, conn, adOpenDynamic, adLockOptimistic   
      
   I would like to program the default tray of wich it should print.   
      
   greetz   
   Robrecht   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)