Is it possible to create a drop down/combo box to select
all of the available printers on your system?

Hello
Try:
Application.Dialogs(xlDialogPrinterSetup).Show
HTH
Cordially
Pascal

"Bill Agee" a écrit dans le message de
link.net...
Is it possible to create a drop down/combo box to select
all of the available printers on your system?

Tom,

I recently 'discovered' that redim preserve can be used
to redim a 1 dimensional array from 0based to 1based..
and vice versa

Sub foo()
Dim v
'fill it 0based assumes option base 0
v = Array(1, 2, 3)
'make it 1based
ReDim Preserve v(1 To UBound(v) + 1)
Stop
ReDim Preserve v(0 To UBound(v) - 1)
Stop
End Sub



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Tom Ogilvy" wrote :

'Return 0 based for compatibility
ReDim v0(0 To UBound(v1) - 1)
For i = 0 To UBound(v0): v0(i) = v1(i + 1): Next

Split = v0