home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / tink4v3.zip / FXPRINT.LSS < prev    next >
Text File  |  1997-04-09  |  828b  |  22 lines
  1. Sub Main
  2.     Dim Bkgrnd
  3.     If Not IsDefined("Win32") Then 
  4.         Bkgrnd=.ActiveDocument.PrintSettings.PrintInBackground
  5.         .ActiveDocument.PrintSettings.PrintInBackground = False
  6.     End If
  7.     .ActiveDocument.PrintManager.DriverName = "FXPRINT"
  8.     .ActiveDocument.PrintManager.PrintDestination = "FxPrint"
  9.     .ActiveDocument.PrintManager.QueueName = "FxPrint"
  10.     .ActiveDocument.PrintManager.PrinterName = "Fax"
  11.     .ActiveDocument.PrintManager.UpdatePrinterChanges
  12.     .ActiveDocument.PrintManager.UseDefaultPrinter = False
  13.     .ActiveDocument.PrintSettings.OutputToFile = False
  14.     .ActiveDocument.PrintManager.UpdatePrinterChanges
  15.     .Print
  16.     .ActiveDocument.PrintManager.PrinterName = PrinterN$
  17.     If Bkgrnd=True Then
  18.         .ActiveDocument.PrintSettings.PrintInBackground=True
  19.     End If
  20.     .ActiveDocument.PrintManager.UpdatePrinterChanges    
  21. End Sub
  22.