|
|
Postada em 19/02/2006 09:09 hs
bom dia.. Alguêm sabe como selecionar as impressora instaladas na máquina, em um combo ou em grid, para que possa ser escolhido uma antes de mandar imprimir...
Obs.: isso tb inclui as impressora em rede. Desde já agradeço.. Luciano |
|
|
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/02/2006 11:44 hs
Private Sub Combo1_Click()
Dim X As Printer
For Each X In Printers
If X.DeviceName = Combo1.Text Then
' Set printer as system default.
Set Printer = X
' Stop looking for a printer.
Exit For
End If
Next
With Me 'nas labels no form mostram a PORTA, DRIVER E NO CAPTION DO FORM O NOME DA IMPRESORA
.LblPorta.Caption = Printer.Port
.LblDriver.Caption = Printer.DriverName
.Caption = "Imprimir em: " & .Combo1.Text
End With
End Sub Private Sub Form_Load()
'carrega impressoras no combo
Dim i As Printer
.Combo1.Clear
For Each i In Printers
.Combo1.AddItem i.DeviceName
Next i
.Combo1.Text = Printer.DeviceName
.LblPorta.Caption = Printer.Port
.LblDriver.Caption = Printer.DriverName
170 End With End Sub |
|
|
|
Geronimo
|
JOINVILLE
SC - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/02/2006 11:54 hs
"O pior inimigo que você poderá encontrar será sempre você mesmo."
|
|
|
|
|
|
Postada em 19/02/2006 16:32 hs
Ok.. pessoal, vou fazer um teste, mas desde já agradeço. Um abraço.. Luciano. |
|
|
|
|
|
Postada em 19/02/2006 16:44 hs
Caro Alfterra.. Fiz um teste com o código que vc me passou, e deu erro no form_Load(), logo na linha: .Combo1.Clear Dá o seguinte erro: Invalid or unqualifiend reference como resolvo esse probleminha, ficarei grato.. Até mais.. Desde já agradeço Luciano. |
|
|
|
Alfterra
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 20/02/2006 08:34 hs
qual SP do vb vc usa? vc colocou um combo no form? |
|
|
|
