Excel printer settings bewaren

[Gdhondt]

Allen;

Iemand een idee hoe je printer settings bewaard in excel.

Heb ticket systeem in excel en deze dient altijd op de ticket printer te printen met specifieke instellingen.

Bij afsluiten excel en terug opstarten valt deze steeds terug naar basis instelling.

Iemand een idee hoe je dit kan oplossen ?

Bedankt

 

[robdgr]

De instellingen definiëren in een Private Sub Workbook_open()?

 

[Gdhondt]

euh ok en hoe doe je zoiets ?

 

[HSV]

Met de macrorecorder kun je het opnemen.
Zet de recorder aan, zet de printer zoals je het wil hebben, en druk OK.
Mag ook in een leeg blad (er is niets om te printen, maar je hebt de code in module1 staan).

Dubbelkik op ThisWorkbook, en plaats de ene coderegel in de worbook_open event.
Dan wordt het zoiets.

Private Sub Workbook_Open()
 Setprinter = "PRINT(2,1,4,1,,,,,,,,2,,,TRUE,,FALSE)"
end sub

Verwijder de code in module1, en plaats onderstaande er in.

Public SetPrinter As String
Sub printen()
    ExecuteExcel4Macro SetPrinter
End Sub

 

[Gdhondt]

Harry alvast bedankt, echter heb ik niet echt ervaring met macro's. Her recorden zou mss nog lukken maar het tss plaatsen begrijp in niet volledig ?

 

[HSV]

Neem het eens op met de recorder en plaats de code hier op het forum als je wil.
De opgenomen macro staat in module1 als je Alt+F11 drukt.

 

[Gdhondt]

bij deze , weet nie of dit echt klopt ( vrees ervoor )

Sub TicketPrinter()
'
' TicketPrinter Macro
'
 
'
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$C$4:$G$33"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0.02)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
       .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = "$C$4:$G$33"
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0)
        .RightMargin = Application.InchesToPoints(0)
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0.02)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = -4
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

zie ook nergens referentie naar die printer/naam
/driver of zo

 

[HSV]

Zet onderstaande in ThisWorkbook, en sla je testbestand op.
Daarna heropenen, en test het eens.

Private Sub Workbook_Open()
Application.ScreenUpdating = False
 With activesheet.PageSetup
    .PrintArea = "$C$4:$G$33"
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .CenterHorizontally = True
    .Orientation = xlPortrait
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
 End With
End Sub

Eventueel activesheet veranderen door bladnaam.