Udskrift af Excel-userform på forskellige printere.

Dim X  as Printer
For Each X in Printers
If X.Orientation = vbPRORPortrait then
  \'Set Printer as system default
  Set Printer = X
  \'Stop looking for a printer
  Exit for
End If
Next


MKan KAN altså skelne mellem forskellige printere, men hvordan man lige finder ud af hvilken printer der er hvad, det må du sgu nok spørge om.
Det kræver ihvertfald lidt arbejde :-)

- Mikker

P.S.
Hvordan det så ligger med Excel..
SE DET aner jeg jo ikke en kæft om  :-)

- Mikker

ØHH Nu er det jo ikke fordi jeg ikke har andet at lave, men hvad med om du prøved noget i stil med:

(Hvis der er 2 printere, jeg ved faktisk ikke om default printeren er 0, men hvis den er 1 så prøv følgende)

printer(2).printform

Ikke prøvet - JEG har altså kun 1 printer :-)

JEG HAR PRØVET BEGGE FORSLAG, MEN DE VAR IKKE GYLDIGE I EXCEL VBA

Nå ja du behøver jo ikke råbe ad mig, jeg vil jo bare hjælpe.
Men selv tak!

- MIkker

Undskyld, det var ikke sådan ment, jeg er lykkelig  for at noge forsøger at hjælpe

Du skulle kunne bruge følgende kode i VBA-Excel:

Sub PrintToAnotherPrinter()
Dim STDprinter As String
    STDprinter = Application.ActivePrinter
    Application.ActivePrinter = \"microsoft fax on fax:\" \' change printer
    ActiveSheet.PrintOut \' prints the active sheet
    Application.ActivePrinter = STDprinter \' change back to standard printer
End Sub

Hvis koden kan bruges ville jeg gerne have pointene \"udbetalt\" under \"Regneark\", hvor spørgsmålet vel egentlig også hører hjemme ....

det virker desværre ikke. Metoden printform er ligeglad med værdien af active printer, den kigger et andet sted, og bruger windows standardprinter.

Hmm, det har du vist ret i.
Og du kan vel ikke leve med at skulle skifte printer under Kontrolpanelet?

Følgende kalder dialogboksen Printeropsætning ....

Application.Dialogs(xlDialogPrinterSetup).Show

Kan du bruge den?

Jeg troede lige... men nej, den er bedøvende ligeglad med hvilken printer jeg vælger. printet kommer på standardprinteren. Er der evt.. en anden måde at skrive en formular ud på?

Jeg lukker den, der er nok ingen løsning