Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketprint til netværksprinter

 Besvar Besvar
Forfatter
hejstrup Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 10.Nov.2011
Land: Danmark
Status: Offline
Point: 77
Direkte link til dette indlæg Emne: print til netværksprinter
    Sendt: 18.Jan.2017 kl. 13:58
Hej. Jeg kæmper med at få mit Excel ark printet på en anden printer end standardprinteren (min standardprinter er Adobe PDF printer) printeren jeg gerne vil printe til er en netværksprinter. Den har selvfølgelig en IP. Kan det laves som en Macro.
Jeg vil sende det ark jeg har åbent og arbejder i ??
///hejstrup
vh hejstrup
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 19.Jan.2017 kl. 08:03
Brug
      Application.ActivePrinter
Før du skifter printer bør du dog gemme den nuværende aktive printer, og genopretter den efter udskrivning.
      Dim CurrentPrinter As String
      CurrentPrinter = Application.ActivePrinter
      Application.ActivePrinter = "Den printer du vil benytte"

    ' Do your printing here...

      Application.ActivePrinter = CurrentPrinter   ' Reset printer back

Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
Direkte link til dette indlæg Sendt: 23.Mar.2017 kl. 20:28
"Den printer du vil benytte"
hvad skal man skrive her ?
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 24.Mar.2017 kl. 08:01
Lav denne lille makro:
Sub GivPrinternavn()

      Application.Dialogs(xlDialogPrinterSetup).Show
      Debug.Print Application.ActivePrinter

End Sub
Makroen vil lade dig vælge blandt alle dine installerede printere, via en standard dialogboks, og skrive navnet på den valgte printer til Immediate (Debug) vinduet.

Det navn, der skrives til Immediate vinduet, er det navn, du skal skrive under "Den printer, du vil benytte".
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
Direkte link til dette indlæg Sendt: 24.Mar.2017 kl. 15:28
det må jeg rode lidt med , spændende med VBA

Kan man ikke bygge de 2 sammen så man kan vælge printeren derfra
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 25.Mar.2017 kl. 13:30
Citér Kan man ikke bygge de 2 sammen så man kan vælge printeren derfra
Det gør du faktisk automatisk, da...
Application.Dialogs(xlDialogPrinterSetup).Show
...automatisk sætter den valgte printer til at være den aktive printer, og dermed den printer, som fremadrettet udskrives på, indtil en ny printer vælges.
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
Bjarnehansen Se dropdown
Platin bruger
Platin bruger
Avatar

Medlem: 20.Nov.2011
Land: DK
Status: Offline
Point: 5485
Direkte link til dette indlæg Sendt: 25.Mar.2017 kl. 14:02
Ja det kan jeg godt se nu Thumbs Up Beer
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Med venlig hilsen - Bjarne Hansen - Microsoft 365 DK
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417
Direkte link til dette indlæg Sendt: 25.Mar.2017 kl. 16:24
Så mangler vi bare, at høre fra 'HEjstrup' om han kunne bruge det???
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk