excel; knap til print af flere sider (ark)

Sub udskriv()

Application.ScreenUpdating = False

    Sheets("Ark1").PrintOut Copies:=1, Collate:=True
    Sheets("Ark2").PrintOut Copies:=1, Collate:=True
    Sheets("Ark3").PrintOut Copies:=1, Collate:=True
    Sheets("Ark4").PrintOut Copies:=1, Collate:=True
    Sheets("Ark5").PrintOut Copies:=1, Collate:=True

Application.ScreenUpdating = True

End Sub

noget i denne stil?

Det ser rigtigt ud ;o) (er lang tid siden jeg har rodet med macroer i Excel)

Og så der printes et ønskes område ?
fx. A1 - G30 ?

Sheets("Ark1").PageSetup.PrintArea = "$A$1:$G$30"
    Sheets("Ark1").PrintOut Copies:=1, Collate:=True


og ligesådan med de andre

kanon! ; tester lige en af dagene  ;o)

vi har 3 printere, hvor ovenstående skal ud på farveprinteren.
Skal valg af printer ske manuelt - eller er det muligt at det sker via maskroen ?

Application.ActivePrinter = "HP DeskJet 870Cxi på Ne01:" ' navnet på din farveprinter

'din kode

Application.ActivePrinter = "HP LaserJet 6L på Ne00:" ' navnet på din Standardprinter
' hvis den ikke sættes tilbage bliver farveprinteren standardprinter på din pc

jamen I styrer jo for vildt ;o)

hhmm.. det driller lidt ... Inde under MS Visual basic prøver jeg at køre

Printeren ; hvilket navn skal jeg bruge ?

har prøvet med :
Application.ActivePrinter = "HP Color Laser Jet 4550 PCL 6 på NPI032B50:"
Application.ActivePrinter = "HP4550N på JYLLAND:"

Herudover kan jeg ikke rigtig aktivere min knap (der kommer ikke en "hånd" ved mouse-over - og kan da huske at der er et lille trick - men kan ikke huske det...

den med knappen er nu på plads - prøvede lidt af hvert og det fungerer nu - men printeren er ikke accepteret.

Optag en makro hvor du skifter med printer til udskrivning.

Se på Makroen hvad printerne hedder

ååhhh  ja - selvfølgelig - damn jeg er rusten i det macro - men det er også 4-5 år siden jeg sidst fedtede lidt med macroer ;o)

det virker bare perfekt !

kast lige et svar ;o)

Jeg har lige sat point op til 60, da I begge har svaret korrekt på mine spørgsmål - og synes ikke det vil være fair at dele de 30 i 2....

Stewen har svaret korrekt på mit oprindelige spm. mens "kabbak" har svaret på min spm. efter at jeg havde brug for yderligere detaljer.

Mange tak for jeres hjælp !

Ok, hvad hed din printer så.?
For det var vel navnet der var galt ikke.

;-))

jo ;o)

det hed noget med "HP4550N på Ne02:" (men det kunne ikke lige se det de steder jeg chckede i WinXP - Den med optag macro afslørede den rette identitet,,

Tja.... altid god som sidste udvej! ;-)

tak for hjælpen !!

selv tak.

noget er underligt !! Vi har i Århus vores netværk "jylland" og et par kolleger som også skal bruge den makro får en fejl.

Samme printer identifeceres som "HP4550N på Ne03:" - og vores IT-mand aner ikke hvad det Ne02 og Ne03 er for noget. Har I en idé ??

http://www.erlandsendata.no/english/index.php?d=envbaprintchangeprinter

der er noget her som måske kan bruges.

hhmm.. måske : vil prøve - det ser ud som de har haft samme problem - skal nok melde tilbage om det lykkes ;o)

Jeg har dyrket kabbaks link lidt og det er ikke helt problemfrit -
hhmmm... får en syntax-error nede i linien med; If InStr(1,...

Function GetNetworkPrinterName(strShortPrinterName As String)
Dim varrPrinterList As Variant, i As Long
' add your own code to enumerate the available printers into the variable "varrPrinterList"
' this example uses a static array
varrPrinterList = Array("\\JYLLAND\HP4550N på NE02:", "\\JYLLAND\HP4550N på NE03:")
i = LBound(varrPrinterList) - 1
Do While i < UBound(varrPrinterList) And Len(GetNetworkPrinterName) = 0
i = i + 1
If InStr(1, varrPrinterList(i), strShortPrinterName, vbTextCompare) 0 Then
GetNetworkPrinterName = varrPrinterList(i)
End If
Loop
End Function

Sub TestGetNetworkPrinterName()
MsgBox GetNetworkPrinterName("JYLLAND\HP4550N"), vbInformation, "Selected Printer:"
End Sub

roder nu lidt med løsningen fra denne tråd : http://www.eksperten.dk/spm/465980

sådan ! løst med spm 465980, hvor jeg blot har erstatet:
Application.Dialogs(xlDialogPrint).Show

med:
ark og range som skal udskrives.

nyt spørgsmål ;o)

Jeg har/skal have lavet en ekstra udskriftsmulighed (ny knap) ; som printer arkene ud til en PDF-fil - til een PDF-fil - jeg har brugt løsningen fra denne tråd - men den giver  7 pdf-filer / svarende til de 7 ark der skal udskrives.

Kan I knække denne nød ??  - Nyt spm. ligger her : http://www.eksperten.dk/spm/517945