Send Page Eject to Printer

Date: 02-16-2022

Return to Index

 
'Primary Code:
XPrint FormFeed
 
'Generates error if unsuccessful
'Some printers do not eject a page if the page is blank
 
 
'Compilable Example:  (Jose Includes)
'Prints two pages. First formfeed comes from XPrint FormFeed,
'The second formfeed comes from XPrint Close
#Compiler PBWin 9, PBWin 10
#Compile EXE
#Dim All
%Unicode=1
#Include "Win32API.inc"
Global hDlg As Dword
 
Function PBMain() As Long
   Dialog New Pixels, 0, "Test Code",300,300,200,200, %WS_OverlappedWindow To hDlg
   Control Add Button, hDlg, 100,"Push", 50,10,100,20
   Dialog Show Modal hDlg Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
   If CB.Msg = %WM_Command AND CB.Ctl = 100 AND CB.Ctlmsg = %BN_Clicked Then
      XPrint Attach Default    'select a printer (default in this case)
      XPrint "Page 1"           'draw the text on the printer
      XPrint FormFeed
      XPrint "Page 2"
      XPrint Close               'sends info to printer, sends formfeed, detaches host printer
   End If
End Function
 
'gbs_00212
'Date: 03-10-2012

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm