Dymo formaat etiket instellen

[Fredemel]

Wie o Wie heeft een oplossing.
Kan men, na de selectie van een Dymo 450-labelprinter, een etiket-formaat vast instellen via VBA.
Bvd...!!!

 

[jkpieterse]

Een manier is om in Windows een nieuwe printer toe te voegen met voor die "printer" de juiste papier- en afdrukinstellingen. Je kunt dan volstaan met het kiezen van de juiste printer.

 

[Fredemel]

Omdat het document bewerkt mag worden op verschillende laptops met een eigen Dymo-540 printer (dmv NAS) zijn die instellingen niet absoluut. Oftewel uw oplossing is niet toereikend, maar wel bedankt voor uw reactie.

 

[JEC.]

Je kunt de standaard layout vaststellen in de printerinstellingen van windows. Vervolgens kun je in Excel je cellen en printarea zodanig afstellen dat het precies past op de vooraf ingestelde layout.

Meerdere keren met Dymo printers gewerkt, gaat prima op die manier. Per pc de instellingen de eerste keer even vastleggen.

 

[Fredemel]

Oeps,....
Dit wist ik niet. Ga ik testen... bedankt. Maar.....
Dit zelf uitgedokterd en het werkt.
De code 2" krijgt een "Call setup_Etiket_11532_2x()" op het Print-moment (Printer wordt door user bepaald a.d.h.v. Code 1).
Ik heb van alles proberen te ontwrichten (ander formaat etc..), maar het etiket wordt steeds correct geprint!
(Applaus voor mezelf... ;-)) )

De Dymo-printer moet de gebruiker wél kiezen natuurlijk

Sub myDymoSet()
Dim D As String
    D = Application.Dialogs(xlDialogPrinterSetup).Show
    D = Application.ActivePrinter
        Sheets("Menu").Range("$H$8").Value = D
        Sheets("BarcodeSticker").Range("$G$7").Value = D
End Sub

en deze (na wat gewijzigde instellingen) doet het werk...

Sub setup_Etiket_11532_2x()  'Instellingen papierformaat: 11352 Return Adress Int  2,54 x 5,4 cm
Dim etiket As Worksheet
Set etiket = ThisWorkbook.Worksheets("BarcodeSticker")
    Application.PrintCommunication = True
    etiket.PageSetup.PrintArea = "$A$1:$B$11"
    With etiket.PageSetup
        .LeftMargin = Application.InchesToPoints(0#)
        .RightMargin = Application.InchesToPoints(3.93700787401575E-02)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0.078740157480315)
        .HeaderMargin = Application.InchesToPoints(0#)
        .FooterMargin = Application.InchesToPoints(0.078740157480315)
        .PrintQuality = 300
        .CenterHorizontally = True 'False
        .CenterVertically = True 'False
        .Orientation = xlPortrait
        .PaperSize = 170
        .BlackAndWhite = False
        .Zoom = 85
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
    etiket.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Hopelijk hebben andere leden hier ook wat aan.

Bedankt en wellicht tot een volgende keer

 

[RogerS]

Of de printer delen via de NAS, als dat een optie is. Hoef je het maar 1 keer in te stellen