home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.lang.visual.basic      MS Visual Basic discussions, NOT dot-net      10,840 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 9,666 of 10,840   
   D Wigg to All   
   Showing printer with CommonDialog   
   22 Aug 05 12:24:51   
   
   From: dnwigg@blueyonder.co.uk   
      
   Hello all,   
      
   I'm using VB6.0 to write an application which prints a report. The problem I   
   have occurs when I try to allow the user to select the number of copies and   
   which pages to print.   
      
   Using the code below doesn't show the printer box to allow the selections to   
   be made but printing happens anyway.   
      
   The PrintRoutine subroutine (not shown) is copied from the MS knowledge base   
   allowing printing to a printer or to a print preview form by passing the   
   appropriate parameter. (The print preview works fine, but doesn't use a   
   CommonDialog call anyway.)   
   I don't think the problem lies in the print routine as it isn't called till   
   later anyway.   
      
   I use other CommonDialog functions elsewhere in the programme to select   
   files from a directory without any problems. Just can't see what I'm doing   
   wrong, or not doing at all.   
      
   Suggestions please......   
      
   TIA,   
   Dave   
   ________________________________________________________________   
   _________________   
   Code snippet follows:   
      
   CommonDialog1.Action = 5   
   CommonDialog1.ShowPrinter   
      
   ' Get user selected values   
      
   BeginPage = CommonDialog1.FromPage   
   EndPage = CommonDialog1.ToPage   
   Numcopies = CommonDialog1.Copies   
      
   ' Code to use start and finish pages and no. of copies to be added later   
      
   PrintRoutine Printer   
   Printer.EndDoc   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca