Print side | Luk vindue

print til netværksprinter

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2906
Udskrevet den: 06.Maj.2024 kl. 05:27


Emne: print til netværksprinter
Besked fra: hejstrup
Emne: print til netværksprinter
Posteringsdato: 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


Svar:
Besked fra: EXCELGAARD
Posteringsdato: 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.

Besked fra: Bjarnehansen
Posteringsdato: 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

Besked fra: EXCELGAARD
Posteringsdato: 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.

Besked fra: Bjarnehansen
Posteringsdato: 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

Besked fra: EXCELGAARD
Posteringsdato: 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.

Besked fra: Bjarnehansen
Posteringsdato: 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

Besked fra: EXCELGAARD
Posteringsdato: 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.


Print side | Luk vindue