Acess Extended BizHub Print Settings 1

[white605]

Is there a way to programatically get to the extended print properties of BizHub that folds, staples, booklet, etc etc.
When recording the following macro i have clicked printer propreties and changed the settings but those changes are not being recorded.

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 2/5/2009 by user
'
    
    ActivePrinter = "KONICA MINOLTA C650 Series PCL"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=False, Background:=False, PrintToFile _
        :=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
End Sub

thanks
wjwjr

This old world keeps spinning round - It's a wonder tall trees ain't layin' down

 

[SkipVought]

Hi,

What you have to do in Add a Printer is to configure the seeting you want in a new instance of your printer, and then call THAT one when your want those features.

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[white605]

Thanks, I will experiment with that. This printer thinks differently about things than I do sometimes. Adding to your suggestion, the 450 allows something called a Favorite Setting that will remember all its own settings. If i can make the new printer default to one of those that should work fine.

Ill report back
wjwjr

This old world keeps spinning round - It's a wonder tall trees ain't layin' down

 

[white605]

Skip, *4U(thanks)
I figured out how to install on another port, then edit the driver to the proper port, thus leaving a working copy(2) of the driver. Word macros records the new printer name and this trick will work wonders for different types of print jobs.

Now I should be able to solve the tri-fold of a large merge file to multiple recipiants (Printer wants to stuff entire document into one envelope) by looping thru the pages one at a time and printing each one seperately calling the driver setup for trifold as follows

If you know of a better approach I would appreciate it.

Sub PrintOnePageAtATime()

Dim Pages, i
Pages = ActiveDocument.ComputeStatistics(wdStatisticPages)
i = 1
For i = 1 To Pages
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i

ActivePrinter = "KONICA MINOLTA C650 Series PCL"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=False, Background:=False, PrintToFile _
        :=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

Next

 

End Sub

This old world keeps spinning round - It's a wonder tall trees ain't layin' down

 

[white605]

Same logic working in VFP reports, thanks again

 **PrintOnePageAtATime vfp9
 nPages = RECCOUNT( )
 SET PRINTER TO NAME "WindowsPrinterName" && trifold driver
 FOR n = 1 TO nPages
 REPORT FORM MyReport RANGE n,n noeject TO print
 ENDFOR

This old world keeps spinning round - It's a wonder tall trees ain't layin' down